VBA テキストボックス図形のフォント一括変更:今すぐできる!

エクセルマクロで、テキストボックス・図形のフォントを一括変更するVBAコードをご紹介します。

フォント種類・文字サイズをまとめて変更できます。
ぜひお試しください😉

テキストボックス図形のフォント一括変更

以下のマクロを実行すると、テキストボックスのフォントをまとめて変更します。

Sub 図形テキストボックスのフォント一括変更()

Dim mySP As Shape
    
    'すべての図形テキストボックスをループ
    For Each mySP In ActiveSheet.Shapes
    
         'テキストボックスの場合
        If mySP.Type = msoTextBox Then
        
            'フォント変更
            mySP.TextFrame2.TextRange.Font.NameFarEast = "ＭＳ Ｐ明朝"
             
            'フォントサイズ変更
            mySP.TextFrame2.TextRange.Font.Size = 15
             
        End If
    Next mySP

End Sub

全テキストボックスのフォント種類と、フォントサイズを一括で変更します。
（変更前）フォント種類「Meiryo UI」、フォントサイズ：11
（変更後）フォント種類「ＭＳ Ｐ明朝」、フォントサイズ：15

テキストボックス以外の図形のフォントは変更しません。

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

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

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

...

kirinote.com

2022.12.18