vba窗体在运行的时候动态添加控件的代码

在Excel的窗体里面，如何在窗体运行的情况下动态的添加控件呢？

以下代码，以动态添加控件为例子，希望对你有帮助。

一、动态添加CommandButton命令按钮

Dim mc As CommandButton

 Static k

 k = k + 1

 Set mc = Me.Controls.Add("Forms.Commandbutton.1")

 mc.Caption = k

 mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height

 　　Me.Controls.Remove "Commandbutton1"

二、动态添加文本框

Set　 myText　 =　 Controls.Add( "VB.TextBox ",　 "myTextBox ")

With　 myText
　　　  　.Visible　 =　 True
　　　  　.Text　 =　 "这是加载的动态控件 "
　　　 　 .Width　 =　 3200
　　End　 With