全部显示创建一个 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