VBA テキストボックス図形を塗りつぶしなし設定 3選

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

        '図形テキストボックスの背景を透明
        mySP.Fill.Visible = msoFalse
        
        '図形テキストボックスの枠線を透明
        mySP.Line.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

特定のオブジェクトの塗りつぶしを無くします。

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

 
 
この記事がお役に立ちますと幸いです。
 

・【エクセルマクロ】図形処理を自動化まとめ
 

【エクセルマクロ】図形処理を自動化：超便利7選

エクセルマクロで、図形処理を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください😉

kirinote.com

2022.12.18