在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