Comment lancer un objet forme?

Question

Je souhaite affecter un contrôle ComboBox à un membre de classe du type ComboBox. Ce contrôle est dans un groupe sur une feuille de calcul.

Le problème est par la propriété GroupItems, je peux seulement obtenir un objet Shape, pas un ComboBox. Donc, lors de l'affectation, il alerte "incompatibilité de type".

Si le contrôle n'a pas été dans un groupe, je pourrais obtenir un objet OLEObject par OLEObjects propriété, puis utiliser la propriété Object pour contourner l'incompatibilité de type. Mais qu'en est-il maintenant?

Answer 1

Une fois que vous avez votre objet Shape, que ce soit dans un groupe ou non, vous pouvez accéder au composant ComboBox via la propriété DrawingObject.Object. Donc, cela ressemblerait à quelque chose comme

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