Проверка нескольких фигур в Powerpoint VBA

Question

заранее.

У меня есть 44 фигуры на слайде (B01 - B44), которые я хочу проверить, чтобы увидеть, не содержат ли они буквы «A». Существуют другие формы, которые я хочу исключить из поиска. Я хотел бы сделать это без кучи «и», но я немного новичок в VBA.

Что-то вроде:

If ActivePresentation.Slides(2).Shapes("B##").TextFrame.TextRange.Text <> "A" Then MsgBox "No A's" 

Answer 1

Вы можете сделать это в цикле:

Dim i as Long, a As Long 
Dim shp as Shape 
Dim pres as Pres: Set pres = ActivePresentation 

For i = 1 to 44 
    Set shp = pres.Slides(2).Shapes("B" & i) 
    If shp.TextFrame.TextRange.Text <> "A" Then 
     aCount = aCount+1 
    End If 
Next 

If aCount = 0 Then 
    MsgBox "No A's were found" 
Else: 
    MsgBox aCount & " A's were found" 
End If 

Примечание: Это проверяет, является ли текст является «А», содержит не будь буква "А".