如何投射形状物体？
我想将一个ComboBox控件分配给ComboBox类的一个类成员。 该控件位于工作表上的一个组中。
问题是通过GroupItems属性，我只能得到一个Shape对象，而不是一个ComboBox 。 所以当分配时，它提示“types不匹配”。
如果控件不在一个组中，我可以通过OLEObjects属性获取OLEObject对象，然后使用Object属性绕过types不匹配。 但是现在呢？
一旦有了Shape对象，无论是否在Group中，都可以通过DrawingObject.Object属性访问ComboBox。 所以它看起来像
Set cboVariable = ActiveSheet.Shapes(1).GroupItems(2).DrawingObject.Object