excel学习库-VBA代码解决方案第99讲：在工作表中添加窗体控件

大家好，我们今日继续讲解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 单元格的左上角或图表的左上角。 d) Top是必需的，新对象的初始坐标（以磅为单位）相对于工作表 A1 单元格的左上角或图表的左上角。 e) Width是必需的，以磅为单位的新对象的初始大小。 f) Height是必需的，以磅为单位的新对象的初始大小。下面的实测代码所示。 Sub MynzAddFormControls() Dim myShape As Shape On Error Resume Next Sheets("sheet12").Shapes("MyNzButton").Delete Set myShape = Sheets("sheet12").Shapes.AddFormControl(0, 108, 72, 108, 27) With myShape .Name = "MyNzButton" With .TextFrame.Characters .Font.ColorIndex = 13 .Font.Size = 14 .Text = "录入数据按钮" End With .OnAction = "myButton" End With End Sub Sub myButton() UserForm2.Show End Sub 代码解析： AddFormControls过程使用AddFormControl方法在工作表中添加窗体控件。第3、4行代码为了避免在工作表中重复添加按钮控件，先删除工作表中的“MyNzButton”按钮。第5行代码，使用AddFormControl方法在工作表中添加命令按钮控件并设置控件的坐标和大小。第7行代码将新添加的按钮名称设置为“MyNzButton”。第8行到第12行代码设置新添加的按钮文字设置为“新建的按钮”，并设置文字的大小和颜色。第13行代码，指定新添加按钮所执行的宏名称。 myButton过程是单击新添加按钮所执行的过程，显示另外的窗体的运行。运行AddFormControls过程将在工作表中添加一个命令按钮，单击按钮显示另外的窗体的运行。代码截图：

运行窗口：

点击此按钮：

今日内容回向： 1 如何用代码添加控件？ 2 expression.AddFormControl方法是否理解呢？

一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

VBA代码解决方案第99讲：在工作表中添加窗体控件2024-04-11 12:37:30