将文本添加到文本框Excel VBA

我可以使用以下方法将文本添加到文本框中：

ActiveSheet.Shapes.Range(Array("TextBox 6")).Select Selection.Text = "a" 

然而，select形状似乎是不好的做法。 我想使用像这样的东西：

 Worksheets("Dashboard").Shapes("Textbox 6").Text = "a" 

这是如何实现的？

Answer 1

使用TextFrame属性

ActiveSheet.Shapes("Textbox 6").TextFrame.Characters.Text = "Hello"