本文由日文译成中文。

这是用 Excel VBA 在工作表的形状(自动形状)中添加和删除字符的记录。

要从形状中添加或删除字符,请使用 “TextFrame ”对象中 “Characters ”对象的 “Text ”属性。

< Sponsored Links >





在图表中添加文字的示例

在图中添加 “あいうえお” 字符。

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
図形文字
図形文字

< Sponsored Links >