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

vba
VBAでオートシェイプにフォントを設定
オートシェイプにフォントを設定する方法をご紹介します。
日本語フォントを設定する方法
日本語フォントは以下の方法で設定可能です。
※シート内にオートシェイプが1つだけある状態を想定しています。
ActiveSheet.Shapes(1).TextFrame.Characters.Font.Name = "MS Pゴシック"
ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.Name = "MS Pゴシック"
英語フォントを設定する方法
次に、英語フォントに設定する方法をご紹介します。
日本語だけの設定ですと、英数字(例えば電話番号や郵便番号)を
表示させる際にデフォルトフォントのままとなってしまいます。
※おまじないですが、両方設定することをお勧めします。
ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.NameFarEast = "MS Pゴシック"
ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.NameAscii = "MS Pゴシック"