помогите пожалуйста PowerPoint и VBA

[viter.alex]

Как-то так:

For Each oShp In ActivePresentation.Slides(1).Shapes
  If oShp.Name = "MyName" Then MsgBox "Фигура с именем " & oShp.Name & " существует.": Exit For
Next oShp

[EducatedFool]

Function ФигураПрисутствует(ByVal ИмяФигуры As String) As Boolean
    On Error Resume Next
    ФигураПрисутствует = Not ActivePresentation.Slides(1).Shapes(ИмяФигуры) Is Nothing
End Function

Sub ПримерИспользования()
    MsgBox ФигураПрисутствует("Rectangle 5")    ' возвращает TRUE
    MsgBox ФигураПрисутствует("Rectangle 7")    ' возвращает FALSE
End Sub

[CATerpillar]

спасибо за помощь