如何在Excel中使用VBA插入文本到（工作表）文本框？

我在Excel 2007的function区中使用“插入/文本框”菜单在工作表中插入了一个文本框。它已自动命名为“文本框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 

在研究这个时，我只find关于activeX文本框的答案。 但据我了解，我插入的文本框不是这样的。

任何人都可以帮忙吗？

Answer 1

这似乎是没有问题的工作：

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

Answer 2

我能够设置文本框的内容

 Sub test() Sheets(1).Shapes.Item(14).TextFrame.Characters.Text = "eventually some text" End Sub