Можно ли обратиться к фигуре с кодом VBA?

Question

Я заменяю все свои элементы управления ActiveX фигурами Excel, из-за этой хорошо известной проблемы .Поэтому я заменил каждую кнопку ActiveX прямоугольной формой, назначив макрос каждой фигуре:

Мой вопрос - могу ли яадресовать эти «кнопки формы» с помощью моего кода VBA.Что-то простое, например, изменить цвет фона кнопки «Обзор запуска» должно быть возможно, верно?

Я думаю о чем-то вроде:

Activesheet.shapes("Review Start").background.colorindex = 1

(Этот код явно не работает)

Answer 1

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

Объявляя переменную как тип Shape, Intellisense покажет вам свойства и методы.Также вы можете использовать Обозреватель объектов (F2).

Sub x()

Dim s As Shape

Set s = ActiveSheet.Shapes("Review Start") 'better to specify a sheet name

With s
    .Fill.ForeColor.RGB = RGB(255, 255, 255)
    .TextFrame.Characters.Font.Color = vbBlack
    .TextFrame.Characters.Text = "Fred"
End With

End Sub