工作表中控件的特殊引用方法

在我以前发表的博客文章“深入了解Excel工作表中的控件”中介绍了如何引用工作表中的控件，其使用方法和用户窗体中的控件有很多不同之处。
例如工作表中有如下四个ActiveX复选框。

如下代码可以很容易的读取控件的相关属性。

Sub ActiveXCtl()
    For Each ctl In ActiveSheet.OLEObjects
        Debug.Print ctl.Name, ctl.Object.Caption, ctl.Object.Value
    Next
End Sub

结果如下：

CheckBox1 Excel True
CheckBox2 Word False
CheckBox3 PowerPoint True
CheckBox4 OneNote False

如果控件在工作表中被组合在一起，那么情况就大为不同了。

再次运行ActiveXCtl过程，没有任何输出，此时控件被组合为一个Shape对象，不再属于OLEObjects集合。这样的控件如何访问呢？此时需要使用CallByName访问控件属性。

Sub ActiveXCtlNew()
    For i = 1 To 4
        With CallByName(Sheet3, "CheckBox" & i, VbGet)
            Debug.Print .Name, .Caption, .Value
        End With
    Next
End Sub

此方法也适用于未被组合在一起的ActiveX控件，但是不适用于工作表中的表单控件。