Excel VBA 図形(オートシェイプ)にテキストを設定する方法

スポンサーリンク

図形にテキストを設定する方法

TextFrame オブジェクトを取得するには、Shape オブジェクトのTextFrameプロパティを使用します。

図形にテキストを設定するサンプルコード

図形(オートシェイプ)に「いるか」という文字列を設定してフォントの大きさや色等を変更しています。

Sub setShapeText()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 30, 100, 100).Name = "a"
    With ActiveSheet.Shapes("a").TextFrame.Characters
        .Text = "いるか"
        With .Font
            .Size = 12
            .Name = "Meiryo UI"
            .Bold = True
            .Color = vbBlack
        End With
    End With
End Sub


Docs

コメント

タイトルとURLをコピーしました