【Q&A】既存ブックのテキストボックスのデフォルト設定を枠線なし・塗りつぶしなしにする方法

森田

今回はコメントでテキストボックスの設定についてご質問を頂いていましたので、その回答になります。

ご質問と回答

デフォルトの設定でテキストボックスを枠線なし、塗りつぶし無しとしたいのですがいい方法はないでしょうか？ちなみにテンプレートファイルで規定のテキストボックスの設定を試しましたが、既存のファイル等に対応できずに困っています。: テンプレートファイルで規定のテキストボックスの設定は、これから作成する「新規」ブックでのみ適用されます。
もし、既存のブックにもその設定を適用したい場合は、VBAしかないですね。

【対応方法例】VBAで既存ブックのテキストボックスの規定の設定を変更する

参考までに既存ブックのテキストボックスの規定の設定を「枠線なし」「塗りつぶしなし」にするためのVBAコードを書いてみました。

Sub テキストボックス_枠線なし_塗りつぶしなし()
    Set myDocument = Worksheets(1)
    With myDocument.Shapes
        With .AddTextbox(msoTextOrientationHorizontal, 10, 10, 10, 10)
             .Fill.Visible = msoFalse
             .Line.Visible = msoFalse
             .SetShapesDefaultProperties
             .Delete
        End With
    End With
End Sub

Sub テキストボックス_枠線なし_塗りつぶしなし()

Set myDocument = Worksheets(1)

With myDocument.Shapes

With .AddTextbox(msoTextOrientationHorizontal, 10, 10, 10, 10)

.Fill.Visible = msoFalse

.Line.Visible = msoFalse

.SetShapesDefaultProperties

.Delete

End With

End Sub

コードの解説

ポイントを絞って解説していきますね。

変数” myDocument”

    Set myDocument = Worksheets(1)

2	Set myDocument = Worksheets(1)

2行目ですね。こちらの変数は、マクロを起動した時点でアクティブなブックの1番左にあるワークシートが格納されます。

1つ目のWithステートメント

    With myDocument.Shapes

3	With myDocument.Shapes

3行目に記載した方ですね。

こちらで変数” myDocument”のShapesコレクションを指定しています。

Shapesコレクションはブック内のすべての図形が含まれます。

つまり、1番左のシートのすべての図形を操作対象にしているわけですね。

その上で、4～9行目に入れ子にしてある2つ目のWithステートメントの内容で設定しているのです。

ちなみに、ブックのいずれかのシートで図形の規定の設定を行えば、同じブック内であればその設定は共通になります。

2つめのWithステートメント

        With .AddTextbox(msoTextOrientationHorizontal, 10, 10, 10, 10)
             .Fill.Visible = msoFalse
             .Line.Visible = msoFalse
             .SetShapesDefaultProperties
             .Delete
        End With