使用FormControlType属性遍历窗体图形

2016年8月10日 作者： 来源：

如果工作表中的是窗体控件，可以使用For Each...Next语句遍历工作表中图形并根据其FormControlType属性返回特定的窗体控件，如下面的代码所示。
#001  Private Sub CommandButton2_Click()
#002      Dim myShape As Shape
#003      For Each myShape In Sheet4.Shapes
#004          If myShape.Type = msoFormControl Then
#005              If myShape.FormControlType = xlCheckBox Then
#006                  myShape.ControlFormat.Value = 1
#007              End If
#008          End If
#009      Next
#010  End Sub
代码解析：
工作表中按钮的单击事件，清除工作表中所有的复选框。
第2行代码声明变量myShape为图形对象。
第3行代码使用For Each...Next语句遍历工作表中的图形。
第4行代码根据图形的Type属性判断图形是否为窗体控件。应用于Shape对象的Type属性返回或设置图形类型，窗体控件返回常量msoFormControl。
第5行代码根据控件的FormControlType属性判断窗体控件是否为复选框控件。FormControlType属性返回窗体控件的类型，可以为表格 119 2所示的XlFormControl常量之一。
常量         值 控件类型
xlButtonControl 0 按钮
xlCheckBox 1 复选框
xlDropDown 2 组合框
xlGroupBox 4 分组框
xlLabel         5 标签
xlListBox 6 列表框
xlOptionButton 7 选项按钮
xlScrollBar 8 滚动条
xlSpinner 9 微调项
表格 119 2 XlFormControl常量
第6行代码使用ControlFormat属性返回工作表中的复选框，并将其他Value属性设置为1选中复选框，如果需要取消复选框只需将Value属性设置为-4146。