大家好,我们今日继续讲解VBA代码解决方案的第99讲内容:在工作表中添加窗体控件

在工作表中添加窗体控件,除了使用手工添加外,还可以使用代码添加,方法如下:使用AddFormControl方法在工作表中添加窗体控件,今日我们讲解一个一般常用的应用于Shapes对象的AddFormContl方法创建一个Microsoft Excel控件,返回一个Shape对象,该对象代表新建的控件,语法如下:

expression.AddFormControl(Type, Left, Top, Width, Height)

参数a) expression是必须的,一个有效的对象。

b) Type是必需的,Microsoft Excel控件类型,可以为下面表格所列XlFormControl的常量之一。

xlButtonControl 0 命令按钮

xlCheckBox 1 复选框

xlDropDown 2 组合框

xlEditBox 3 编辑框

xlGroupBox 4 分组框

xlLabel 5 标签

xlListBox 6 列表框

xlOptionButton 7 选项按钮

xlScrollBar 8 滚动条

xlSpinner 9 微调项

c) Left是必需的,新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。

运行窗口:

vba 窗体中增加控件(窗体控件不一定必须在窗体中)(1)

点击此按钮:

vba 窗体中增加控件(窗体控件不一定必须在窗体中)(2)

今日内容回向:

1 如何用代码添加控件?

2 expression.AddFormControl方法是否理解呢?

,