AddFormControl Method [Excel 2003 VBA Language Reference]
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.
XlFormControl
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
Applies to | Shapes Collection