Как вставить текст в текстовое поле (рабочий лист) с помощью VBA в Excel?

Я вставил текстовое поле в свой рабочий лист, используя меню «Вставка / Текстовое поле» на ленте Excel 2007. Он автоматически был назван «TextBox 17». Я пытаюсь установить его значение с помощью кода VBA, но я не могу понять, как это сделать. Я даже попытался запустить однострочную процедуру, чтобы передать текстовое поле некоторым текстом (например, следующие и другие комбинации), но не удалось.

Sub test() Sheets(1).Shapes.item(14).Text = "eventually some text" Sheets(1).Shapes(14).Text = "eventually some text" Worksheets(1).Shapes(14).Value = "eventually some text" Sheets(1).Shapes("TextBox 17").Text = "eventually some text" Sheets(1).Shapes("TextBox 17").ControlFormat.Value = "eventually some text" Worksheets(1).Shapes(14).TextFrame.TextRange.Text = "eventually some text" End Sub 

Хотя в исследовании об этом я нашел ответы только на текстовые поля activeX. Но, насколько я понял, текстовое поле, которое я вставил, не такое.

Может ли кто-нибудь помочь?

Кажется, что это работает без проблем:

 Sheets(1).Shapes(14).TextFrame.Characters.Text = "xxx" 

Мне удалось установить содержимое текстового поля с помощью

 Sub test() Sheets(1).Shapes.Item(14).TextFrame.Characters.Text = "eventually some text" End Sub 
Interesting Posts
Давайте будем гением компьютера.