如何投射形状物体？

Question

我想将ComboBox控件分配给ComboBox类型的类成员。此控件位于工作表上的一个组中。

问题是通过GroupItems属性，我只能得到一个Shape对象，而不是ComboBox。所以在分配时，它会提示“类型不匹配”。

如果控件不在一个组中，我可以通过OLEObjects属性获得一个OLEObject对象，然后使用Object属性绕过类型不匹配。但是现在呢？

Answer 1

一旦你有了你的Shape对象，无论它是否在Group中，你都可以通过DrawingObject.Object属性访问ComboBox。所以它看起来像

Set cboVariable = ActiveSheet.Shapes(1).GroupItems(2).DrawingObject.Object