vba - 如何在不选择形状的情况下使用 VBA 在 Excel 中更改文本大小？

Question

我正在尝试使用 VBA 更改 Excel 文本框中的文本大小。我目前有以下代码:

ActiveSheet.Shapes.Range(Array("textEnemy")).Visible = True
ActiveSheet.Shapes.Range(Array("textEnemy")).Select
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters
    .Text = msg
    For i = 1 To 15
        .Font.Size = i * 10
        Call WasteTime(50)
    Next
End With
ActiveSheet.Shapes.Range(Array("textEnemy")).Visible = False

此代码使文本的大小增加动画，然后消失。问题是当我运行此代码时，文本框被选中(它周围有一个框)。如何在不选择文本框/在其周围显示选择边框的情况下实现相同的目标？

谢谢!

Answer 1

正如@findwindow 所说:

With ActiveSheet.Shapes.Range(Array("textEnemy"))

    .Visible = True

    With .ShapeRange(1).TextFrame2.TextRange.Characters
        .Text = msg
        For i = 1 To 15
            .Font.Size = i * 10
            Call WasteTime(50)
        Next
    End With

    .Visible = False

End With