2010-01-31 47 views
1

我想將ComboBox控件分配給ComboBox類型的類成員。此控件位於工作表上的一個組中。如何投射形狀物體?

問題是通過GroupItems屬性,我只能得到一個Shape對象,而不是ComboBox。所以在分配時,它會提示「類型不匹配」。

如果控件不在一個組中,我可以通過OLEObjects屬性獲得一個OLEObject對象,然後使用Object屬性繞過類型不匹配。但是現在呢?

回答

0

一旦你有了你的Shape對象,無論它是否在Group中,你都可以通過DrawingObject.Object屬性訪問ComboBox。所以它看起來像

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