図形文字

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

図形文字
図形文字

 

< スポンサーリンク >