本文由日文译成中文。

这是使用Excel VBA 更改工作表中形状自动形状字体大小的记录。

要更改形状上的字体大小,请使用 “TextFrame”对象中 “Characters”对象的 “Font.Size”属性。

< Sponsored Links >





更改形状(自动形状)文字大小的示例

在图中添加文字 “あいうえお”,并将字体大小设置为 15 点。

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

    With shp.TextFrame.Characters
        .Text = “あいうえお”
        .Font.Size = 15
    End With
End Sub
テキストサイズ
テキストサイズ

< Sponsored Links >