VBA Shapes.AddTextbox方法

Question

我在代码中使用了Shapes.AddTextbox方法()，特别是在给定的条件下，我添加了一个新的文本框，然后将其删除。问题是，当创建textbox时，我从Excel收到一个消息框，其中显示了创建的文本框的编号，然后我必须单击消息框的"OK“按钮才能关闭它并继续运行代码。是否有避免出现此消息框的方法？

谢谢！问候

Answer 1

如果你能提供你的代码，对ans来说会更容易一些。

顺便说一下，请看下面的例子，这样你就可以了解如何在你的excel文件中添加一个文本框。

 Sub DrawTextbox()
    Dim ws As Worksheet, s As Shape
    Set ws = ActiveSheet
    ' Create label (height/width will be set by AutoSize).
    Set s = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 100, 100)
    s.TextFrame.Characters.Text = "This is some label text"
    ' Resize text box to fit text.
    s.TextFrame.AutoSize = True
end sub