将控件添加到页面

以下示例使用 Microsoft Forms 2.0 Controls 集合的 Add 方法在运行时向窗体中添加控件。

若要使用本示例，请将此示例代码复制到窗体的"脚本编辑器"中。 确保该窗体包含：

• 一个名为"CommandButton1"的 CommandButton 。

Dim Mycmd 
Sub CommandButton1_Click() 
 
 Set Mycmd = Item.GetInspector.ModifiedFormPages("P.2").Controls.Add("Forms.CommandButton.1") ', CommandButton2, Visible) 
 Mycmd.Left = 18 
 Mycmd.Top = 150 
 Mycmd.Width = 175 
 Mycmd.Height = 20 
 Mycmd.Caption = "This is fun." & Mycmd.Name 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。