版权声明:本文为博主原创文章,转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/82106591
在我以前发表的博客文章“深入了解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控件,但是不适用于工作表中的表单控件。