如何投射形状对象？答案

【问题标题】：How to cast a shape object?如何投射形状对象？
【发布时间】：2011-01-11 10:21:27
【问题描述】：

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

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

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

【问题讨论】：

【解决方案1】：

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

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

【讨论】：