Выбор формы

Question

В настоящее время я работаю над инструментом Excel, который у меня есть одна кнопка и один объект формы.

Кнопка - это кнопка выбора для «выбора» объекта формы. Идея состоит в том, чтобы выбрать объект-фигуру как изображение и изменить его цвет после его выбора. Я прав, я написал макрос Select_MyClicked, и в послесловии использовалась инструкция вызова для вызова макроса из функции Clicked кнопки выбора.

Sub Select_MyClicked()
Dim ElementName As String
Dim Shp As Object

Set Shp = Sheets("Tabelle1").Shapes(ElementName)
Shp.Select
End Sub

==================================================================
Private Sub CommandButton3_Click()
Call Select_MyClicked
End Sub
==================================================================

Теперь интересно:

• Когда я использую кнопку, изображение выбирается, но в регистре формата изображения нет ничего выбираемого
• Если я щелкаю само изображение или использую макрос Select_MyClicked независимо, все в регистре формата изображения можно выбрать

Я также попытался записать инструкцию выбора прямо в частный подпункт, нажимаемый кнопкой. Тот же результат, ничего не выбирается

Я хочу выбрать изображение и изменить его цвет. Мой второй вопрос: знает ли кто-нибудь, как открыть Colorpennel (с множеством цветных прямоугольников) с помощью vba?

Answer 1

Я наконец нашел решение. Кажется, имеет значение, какую кнопку вы используете. В моем случае это должны были быть элементы управления, а не элементы activeX

Answer 2

Вам нужно ссылаться на Shape его Name. Я присвоил имя "myshape" Shape перед запуском:

Sub Select_MyClicked()
    Dim ElementName As String
    Dim Shp As Shape

    ElementName = "myshape"
    Set Shp = Sheets("Tabelle1").Shapes(ElementName)
    Shp.Select
End Sub

Код выполняется, даже если Tabelle1 не является активным листом.