创建一个 Microsoft Excel 控件。将返回一个 Shape 对象,该对象代表新建的控件。
expression.AddFormControl(Type, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Type XlFormControl 类型,必需。Microsoft Excel 控件类型。无法在工作表中创建编辑框。
XlFormControl 可为以下 XlFormControl 常量之一。 |
xlButtonControl |
xlCheckBox |
xlDropDown |
xlEditBox |
xlGroupBox |
xlLabel |
xlListBox |
xlOptionButton |
xlScrollBar |
xlSpinner |
Left Long 类型,必需。新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。
Top Long 类型,必需。新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。
Width Long 类型,必需。以磅为单位的新对象的初始大小。
Height Long 类型,必需。以磅为单位的新对象的初始大小。
对 OLEObjects 集合使用 AddOLEObject 方法或者 Add 方法可创建一个 ActiveX 控件。
本示例将列表框添加到第一张工作表中,并为该列表框设置填充区域。
With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
lb.ControlFormat.ListFillRange = "A1:A10"
End With