【エクセルマクロ】テキストボックス図形を塗りつぶしなしに設定:簡単解説

エクセルマクロ:図形テキストボックスを塗りつぶしなしに設定アイキャッチ エクセルマクロで効率化する

エクセルマクロで、テキストボックス・図形を塗りつぶしなしに設定するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

テキストボックス図形を塗りつぶしなしに設定(すべてのオブジェクト)

以下のマクロを実行すると、テキストボックス図形の背景を透明にします。


Sub 図形テキストボックスの背景を透明に設定()

Dim mySP As Shape
    
    'すべての図形テキストボックスをループ
    For Each mySP In ActiveSheet.Shapes
    
        '図形テキストボックスの背景を透明にする
        mySP.Fill.Visible = msoFalse
        
    Next mySP

End Sub

 

マクロ実行後

シート内にあるすべてのオブジェクトの塗りつぶしをなくしました。


 
※図形テキストボックスの枠線は残ります。
 

テキストボックス図形を塗りつぶしなしに設定(特定のオブジェクト)

以下のマクロを実行すると、特定の図形の背景を透明にします。


Sub 特定の図形テキストボックスの背景を透明に設定()

Dim mySP As Shape
    
    'すべての図形テキストボックスをループ
    For Each mySP In ActiveSheet.Shapes
    
         '円の場合
        If mySP.AutoShapeType = msoShapeOval Then
        
            '背景を透明にする
            mySP.Fill.Visible = msoFalse
             
        End If
        
    Next mySP

End Sub

 

マクロ実行後

シート内にある特定のオブジェクトの塗りつぶしをなくしました。


 
※図形テキストボックスの枠線は残ります。
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ダブルクリックで図形挿入:簡単解説
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説