PowerPoint VBA 【001】フォント変更

選択したスライドのフォントを一括変更するVBAを作成しました。

選択されたスライドのテキストを持っているオブジェクトについて
指定したフォント以外の場合、フォントを変更しています。

Sub PPT001()
    Dim sld As Slide
    Dim shp As Shape
    '***** 選択した全スライド
    For Each sld In ActiveWindow.Selection.SlideRange
        '***** 全シェイプ
        For Each shp In sld.Shapes
            '*** テキストフレームを持っている ***
            If (shp.HasTextFrame = msoTrue) And _
                (shp.TextFrame.HasText = msoTrue) Then
                '*** 英字フォントを「Times New Roman」に統一
                shp.TextFrame.TextRange.Font.Name = "Times New Roman"
                '*** 日本語フォントを「ＭＳ 明朝」に統一
                shp.TextFrame.TextRange.Font.NameFarEast = "ＭＳ 明朝"
            End If
        Next shp
    Next sld
End Sub

例ではフォントを変更してますが、
色やサイズ等の属性やテキストを修正したり
いろいろ応用出来ると思います。

全スライドを対象にするには

    '***** 全スライド
    For Each sld In ActivePresentation.Slides