Изменение шрифта в PP - VBA

Формулировка задачи:

Здравствуйте! Сделал изменения шрифтов на всех слайдах. Но есть маленькая проблема, если под изменение попадает картинка, то естественно вылетает ошибка. Возможно ли как-то сделать проверку на картинку или найти только текстовые блоки?

Sub Proverka()
Dim z, i, v, j As Integer
z = ActivePresentation.Slides.Count
For i = 1 To z
ActiveWindow.View.GotoSlide Index:=i
v = ActivePresentation.Slides(i).Shapes.Count
For j = 1 To v
    With ActivePresentation.Slides(i).Shapes(j)
    With .TextFrame.TextRange.Font
        .Size = 18
        .Name = "Times New Roman"
        .Bold = False
        .Color.RGB = RGB(0, 0, 0)
    End With
    End With
    Next j
    
Next i
End Sub

Решение задачи: «Изменение шрифта в PP»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim objSlide As Slide, objShape As Shape
    
    For Each objSlide In ActivePresentation.Slides
        For Each objShape In objSlide.Shapes
            If objShape.HasTextFrame = msoTrue Then
               With objShape.TextFrame.TextRange.Font
                    .Size = 18
                    .Name = "Times New Roman"
                    .Bold = msoFalse
                    .Color.RGB = 0 'RGB(0, 0, 0)
               End With
            End If
        Next
    Next
End Sub
                        