Добавить текст в текстовом поле Excel VBA

Question

Я могу добавить текст в текстовое поле, используя следующий метод:

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

Однако выбор формы кажется, плохая практика. Я хотел бы использовать что-то вроде:

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

Как это достижимо?

Answer 1

Использование командной TextFrame свойству

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