EXCEL VBA:窗体在运行的时候动态添加控件的代码
本文标签 EXCEL , 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
vba做excel窗体录入教程.Text  =  "这是加载的动态控件 "
.Width  =  3200
End  With
转载请保留链接: EXCEL VBA:窗体在运行的时候动态添加控件的代码

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。