How to cast a shape object?

I want to assign a ComboBox control to a class member of ComboBox type. This control is in a group on 开发者_如何学Goa worksheet.

The problem is through GroupItems property, I can only get a Shape object, not a ComboBox. So when assigning, it alerts "type mismatch".

If the control was not in a group, I could get an OLEObject object through OLEObjects property, and then use Object property to bypass the type mismatch. But what about now?

---

Once you have your Shape object, whether it is in a Group or not, you can access the ComboBox through the DrawingObject.Object property. So it would look something like

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