vba - 如何投射形状对象？

Question

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

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

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

Answer 1

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

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