Как отлить объект формы?

Question

Я хочу присвоить элемент управления ComboBox члену класса типа ComboBox. Этот элемент управления находится в группе на рабочем листе.

Проблема в свойстве GroupItems, я могу получить только объект Shape, а не ComboBox. Поэтому при назначении он выдает «несоответствие типов».

Если бы элемент управления не был в группе, я мог бы получить объект OLEObject через свойство OLEObjects, а затем использовать свойство Object, чтобы обойти несоответствие типов. Но как насчет сейчас?

Answer 1

Получив объект Shape, независимо от того, находится он в группе или нет, вы можете получить доступ к ComboBox через свойство DrawingObject.Object. Так бы это выглядело как

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