Обращение в VBA к Oval и изменение свойств в Power Point

[Vladislava-smile]

На слайде есть нарисованный овал, при запуске презентации он должен менять цвет заливки.
Как менять цвет нашла

Код (vb) Выделить Развернуть

Dim a As Shape
Private Sub CommandButton2_Click()
a = ActivePresentation.Slides(1).Shapes ("Oval 6").Select
a.Fill.ForeColor.RGB = RGB(0, 255, 0)
End Sub
Но он ругается. Помогите, пожалуйста, что не так?
если овал создавать тоже в коде в блоке кнопки, то все хорошо.

Код (vb) Выделить Развернуть

Set b = ActivePresentation.Slides(1).Shapes .AddShape(msoShapeOval, 586.75, 150.88, 79.38, 79.38)

[Vladislava-smile]

Вопрос решен.

[vikttur]

Дубль темы. Одна удалена.
Есть кнопка, предназначенная для оформления кода.
Второй вопрос не имеет отношения к этой теме (удален).
Если уж создали тему, но нашли решение самостоятельно, будьте добры, покажите решение другим.

[Vladislava-smile]

Окей, решение:

Код (vb) Выделить Развернуть

Private Sub CommandButton2_Click()
  Dim a As Shape
  set a = ActivePresentation.Slides(1).Shapes("Oval 6")
  a.Fill.ForeColor.RGB = RGB(0, 255, 0)
End Sub