AddFormControl Method
Creates a Microsoft Excel control. Returns a Shape object that represents the new control.
expression.AddFormControl(Type, Left, Top, Width, Height)
expression Required. An expression that returns one of the objects in the Applies To list.
Type Required XlFormControl. The Microsoft Excel control type. You cannot create an edit box on a worksheet.
| XlFormControl can be one of these XlFormControl constants. |
| xlButtonControl |
| xlCheckBox |
| xlDropDown |
| xlEditBox |
| xlGroupBox |
| xlLabel |
| xlListBox |
| xlOptionButton |
| xlScrollBar |
| xlSpinner |
Left Required Long. The initial coordinates of the new object (in points) relative to the upper-left corner of cell A1 on a worksheet or to the upper-left corner of a chart.
Top Required Long. The initial coordinates of the new object (in points) relative to the upper-left corner of cell A1 on a worksheet or to the upper-left corner of a chart.
Width Required Long. The initial size of the new object, in points.
Height Required Long. The initial size of the new object, in points.
Remarks
Use the AddOLEObject method or the Add method of the OLEObjects collection to create an ActiveX control.
Example
This example adds a list box to worksheet one and sets the fill range for the list box.
With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
lb.ControlFormat.ListFillRange = "A1:A10"
End With