Excel VBA 図形（オートシェイプ）の文字サイズを変更する－TextFrame.Characters.Font.Size

Excel VBAでシート上にある図形（オートシェイプ）の文字サイズを変更する記録です。

図形に文字サイズを変更するには、「TextFrame」オブジェクトの「Characters」オブジェクトの「Font.Size」プロパティを使います。

< スポンサーリンク >

図形（オートシェイプ）の文字サイズを変更する例

図形に「あいうえお」というテキスト追加し、文字サイズを１５ポイントに設定します。

Sub test()
  Dim shp As Shape
  Set shp = ActiveSheet.Shapes(1)

  With shp.TextFrame.Characters
    .Text = “あいうえお”
    .Font.Size = 15
  End With
End Sub