使用带自动调整大小功能的vba添加文本框

我们可以使用以下代码添加新的文本框：

ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, Left:=1, Top:=1, Width:=300, Height:=100

我需要创建一个宏，用于将注释消息文本框添加到.docm文件中，如下所示：

请注意（要求）：

• 灯泡符号需要慢行
• 灰色框的大小应随着写入更多文本而调整
• 如果在书写过程中出现分页符，方框应保持在一起

---

然后我意识到在ms word中我们对形状做不了什么？请帮我放置一个文本框，用它可以满足上述要求。

你不会很努力的。StackOverflow不是免费的代码编写服务。自动调整大小非常简单，如下所示：

ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
  Left:=1, Top:=1, Width:=300, Height:=100).TextFrame.AutoSize = 1

---

使用表格，否则将无法使灯泡在文本框中自动垂直居中。使用快速部件/构建块，而不是使用代码。我感谢您的建议。这就是我要找的。@Timothyrylat你能帮我用macro建立这个吗？请只需推送startSorry，不需要。所以不是代码编写服务。你需要做你自己的研究和尝试。正如我已经向您指出的，您可以创建表格，然后将其另存为快速零件/构建块，这是一个更简单的解决方案。@Timothyrylat亲爱的，快速零件/构建块是否特定于机器？实际上，我正在创建一个带有自定义功能区和图标的.docm文件，该文件将运行宏以将此类元素插入到文档中。在这里，我不确定如何插入图标。