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

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

エクセルマクロで、テキストボックス・図形を塗りつぶしなしに設定する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

 

マクロ実行後

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


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

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