Excel VBA シート上の図形に文字を追加、削除する-TextFrame.Characters.Text

Excel VBAでシート上にある図形に文字を追加したり、削除する記録です。

図形に文字を追加したり、削除するには「TextFrame」オブジェクトの「Characters」オブジェクトの「Text」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >

例

図形に「あいうえお」という文字を追加します。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)
    shp.TextFrame.Characters.Text = “あいうえお”
End Sub

図形の文字を削除します。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)
    shp.TextFrame.Characters.Text = “”
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします