形状を選択せず​​に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 

このコードは、サイズが増加するテキストをアニメーション化して消えます。問題は、このコードを実行するとテキストボックスが選択されていることです（その周囲にボックスがあります）。テキストボックスを選択せず​​に同じ目標を達成するにはどうすればよいのですか？

ありがとうございます！ @findwindowとして

Answer 1

私は解決策を見つけました。私は、形状変数としてテキストボックスを設定し、それを調整しなければならなかった。

Sub Animate(playerCode As Integer) 
    Dim i As Integer 
    Dim msg As String 
    Dim textBox As Shape 
    msg = "HIT!" 

    Set textBox = ActiveSheet.Shapes("textUser") 

    'Animate textbox 
    textBox.Visible = True 
    With textBox.TextFrame2.TextRange.Characters 
     .Text = msg 
     For i = 1 To 15 
      .Font.Size = i * 10 
      Call WasteTime(50) 
     Next 
    End With 
    textBox.Visible = False 

End Sub 

Answer 2

は言う：

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