Powerpoint VBA에서 여러 모양 확인

Question

미리 감사드립니다.

슬라이드 (B01 - B44)에 글자 "A"가 포함되어 있지 않은지 확인하고 싶은 44 개의 모양이 있습니다. 검색에서 제외 할 다른 모양이 있습니다. 나는 "and"s 무리없이이 작업을하고 싶지만 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 

참고 :이 텍스트 이 "A"의 경우는 포함 여부, 확인합니다 문자 "A".