There are two types of controls that can be used in an Excel worksheet: form controls and ActiveX controls.

Insert control

It is very simple to use VBA to insert controls in the worksheet.

Sub AddCtls()
    'Form controls
    ActiveSheet.Buttons.Add 87.75, 33, 86.25, 33
    ActiveSheet.CheckBoxes.Add 228.75, 33, 70.5, 33
    'ActiveX control
    ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=86.25, Top:=99.75, Width:=90, Height:=33
    ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=228, Top:=99, Width:=90, Height:=33
End Sub

Insert two different types of button and check box controls into the worksheet.

Traverse control

Everyone knows that in the user form, it can be easily usedFor Each Ctl in Userform1.ControlsTraverse the controls in the form, but if you need to traverse the controls in the worksheet and modify their related properties, it is not as simple as in the user form.

Shapes collection

The easiest way is to traverse the Shapes collection in the worksheet, what! ? Don't bully me because I read less, the English word Shape means graphics, and it has nothing to do with controls!
The output result in the immediate window looks a bit magical, these controls do belong to the Shapes collection.

Sub GetCtlList1()
    For Each s In ActiveSheet.Shapes
        Debug.Print s.Name, s.Type
    Next
End Sub
'--- Immediate window ---
'Button 1           8 (msoFormControl) 
'Check Box 2        8
'CommandButton1     12 (msoOLEControlObject)
'CheckBox1          12

Note: The constant values ​​in parentheses are manually added by the author
Control type 8 (msoFormControl) is a form control, and type 12 (msoOLEControlObject) is an ActiveX control.

Control properties

Now that the control has been located, let's use Caption, Value...attributes directly, sorry. The Shape object does not support these properties. Obviously you can operate these controls in the worksheet, such as checking the checkboxes. Is there no way to read them? The answer is yes, it can be read, but it is more troublesome. The usage of properties is different from the controls in the user form.

Sub GetCtlList2()
On Error Resume Next
    For Each s In ActiveSheet.Shapes
        If s.Type = 8 Then
        Debug.Print s.Name, s.AlternativeText, s.Type, s.FormControlType
        ElseIf s.Type = 12 Then
        Debug.Print s.Name, s.DrawingObject.Object.Caption, s.Type, s.OLEFormat.progID
        End If
    Next
End Sub
'--- Immediate window ---
'Button 1 button 1 8 0 (xlButtonControl)
'Check Box 2 Check box 2 8 1 (xlCheckBox)
'CommandButton1     CommandButton1 12           Forms.CommandButton.1
'CheckBox1          CheckBox1      12           Forms.CheckBox.1

For example: the text displayed on the control seen in the worksheet, which requires access to form controlsOLEFormat.Object.CaptionProperty, but for ActiveX controlsDrawingObject.Object.CaptionAttributes.

The following table lists the comparison of several common properties of the two controls.

By default, the form controlOLEFormat.Object.CaptionAttributes andAlternativeTextThe attribute values ​​are the same.

Instance

Worksheet controls are often used to make user survey questionnaires. The correct usage of form controls is to set firstCell link, When the final statistics of the survey results, you only need to read the value of the corresponding cell.

However, many of the questionnaires used in daily work do not have cell links. The cousins ​​and cousins ​​who are ultimately responsible for the survey results have to work overtime to count manually.
If the cousins ​​learn VBA earlier, click the mouse, and drink, there will be statistical results.

Sub GetOptionValue()
    For Each s In ActiveSheet.Shapes
        If s.Type = 8 Then
          Debug.Print s.OLEFormat.Object.Caption, _
          IIf(s.OLEFormat.Object.Value = 1, "Selected", "Unselected")
        End If
    Next
End Sub
'--- Immediate window ---
'Soy milk + fried dough sticks selected
'Wonton + Bun unchecked
'Milk + bread unchecked

If the radio button is not selected, itsOLEFormat.Object.ValueThe attribute return value is -4146.