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

[Vladislava-smile]

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

Как менять цвет нашла
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

Но он ругается. Помогите, пожалуйста, что не так????

[Vladislava-smile]

если овал создавать тоже в коде в блоке кнопки, то все хорошо.
Set b = ActivePresentation.Slides(1).Shapes .AddShape(msoShapeOval, 586.75, 150.88, 79.38, 79.38)

[EducatedFool]

Попробуйте так:

Private Sub CommandButton2_Click()
   ActivePresentation.Slides(1).Shapes("Oval 6").Fill.ForeColor = vbRed
End Sub

или так (равнозначный вариант):

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

[Vladislava-smile]

Спасибо огромнейшее!!!!!!! Очень помогли!!!! И еще можно вопросик, можно настроить как-то, чтобы этот овал окрашивался в другой цвет сразу после запуска презентации?