TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ReformatCaptions()
    Dim oSl As Slide
    Dim oSh As Shape
    Dim x As Long

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.Type = msoGroup Then
                For x = 1 To oSh.GroupItems.Count
                    With oSh.GroupItems(x)
                        If .HasTextFrame Then
                            With .TextFrame.TextRange.Font
                                .Size = 12
                                .Name = "Times New Roman"
                                ' etc ... set other features as needed
                            End With
                        End If
                    End With
                Next
            End If
        Next
    Next
End Sub