VBAでオートシェイプにフォントを設定する(日/英)

VBAでオートシェイプにフォントを設定

オートシェイプにフォントを設定する方法をご紹介します。

日本語フォントを設定する方法

日本語フォントは以下の方法で設定可能です。

※シート内にオートシェイプが1つだけある状態を想定しています。

ActiveSheet.Shapes(1).TextFrame.Characters.Font.Name = "ＭＳ Ｐゴシック"
ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.Name = "ＭＳ Ｐゴシック"

英語フォントを設定する方法

次に、英語フォントに設定する方法をご紹介します。

日本語だけの設定ですと、英数字(例えば電話番号や郵便番号)を

表示させる際にデフォルトフォントのままとなってしまいます。

※おまじないですが、両方設定することをお勧めします。

ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.NameFarEast = "ＭＳ Ｐゴシック"
ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.NameAscii = "ＭＳ Ｐゴシック"