使用FormControlType属性遍历图形.docx

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