如何投射形状物体?

时间:2010-01-31 14:08:07

标签: excel vba excel-vba type-conversion shape

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

问题是通过GroupItems属性,我只能获得Shape个对象,而不是ComboBox。因此,在分配时,它会警告“类型不匹配”。

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

1 个答案:

答案 0 :(得分:0)

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

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