使用Add方法添加窗体控件
- 格式:doc
- 大小:97.00 KB
- 文档页数:2
1-1 使用Add方法
在工作表中添加窗体控件还可以使用Add方法,如下面的代码所示。
#001 Sub AddChartObjects()
#002 Dim myButton As Button
#003 On Error Resume Next
#004 Sheet1.Shapes("myButton").Delete
#005 Set myButton = Sheet1.Buttons.Add(108, 72, 108, 27)
#006 With myButton
#007 .Name = "myButton"
#008 .Font.Size = 12
#009 .Font.ColorIndex = 5
#010 .Characters.Text = "新建的按钮"
#011 .OnAction = "myButton"
#012 End With
#013 End Sub
#014 Sub myButton()
#015 MsgBox "这是使用Add方法新建的按钮!"
#016 End Sub
代码解析:
AddChartObjects过程使用Add方法在工作表中添加窗体控件。
第3、4行代码为了避免在工作表中重复添加按钮控件,先删除工作表中的“myButton”按钮。
第5行代码,使用Add方法在工作表中添加命令按钮控件,Add方法适用于ChartObjects对象的语法如下:
expression.Add(Left, Top, Width, Height)
参数expression是必需的,该表达式返回一个ChartObjects对象。
如果需要在工作表中添加其他窗体控件,可以将参数expression设置为表格 错误!文档中没有指定样式的文字。-1所示的ChartObjects对象之一。
类型 ChartObjects对象
复选框 CheckBoxes
组合框 DropDowns
标签 Labels
列表框 ListBoxes
选项按钮 OptionButtons
滚动条 ScrollBars
微调项
Spinners
表格 错误!文档中没有指定样式的文字。-1 ChartObjects对象
参数Left和Top是必需的,以磅为单位给出新对象的初始坐标,该坐标是相对于工作表上单元格 A1 的左上角或图表的左上角的坐标。
参数Width和参数Height是必需的,以磅为单位给出新对象的初始大小。
第7行代码将新添加的按钮的名称设置为“myButton”。
第8行到第10代码新添加的按钮的文字设置为“新建的按钮”并设置文字的大小和颜色。
第11行代码,指定新添加命令按钮所执行的宏名称。
myButton过程是单击新添加按钮所执行的过程,显示一个消息框。
运行AddChartObjects过程将在工作表中添加一个命令按钮,单击按钮显示一个消息框,如图 错误!文档中没有指定样式的文字。-1所示。
图 错误!文档中没有指定样式的文字。-1 使用Add方法添加窗体控件