文字サイズ

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

下図は、Excel2016です。

< スポンサーリンク >





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

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

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

テキストサイズ
テキストサイズ

 

< スポンサーリンク >