PowerPoint VBA 【003】図形変更

選択したスライドの図形を一括変更するVBAを作成しました。

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

Sub PPT003()
    Dim sld As Slide
    Dim shp As Shape
    '***** 選択した全スライド
    For Each sld In ActiveWindow.Selection.SlideRange
      '***** 全シェイプ
        For Each shp In sld.Shapes
            'オートシェイプ対象
            If (shp.Type = msoAutoShape) Then
                '正方形／四角形で枠線が黒色
                If (shp.AutoShapeType = msoShapeRectangle) And _
                   (shp.Line.ForeColor.RGB = RGB(0, 0, 0)) Then
                    '枠線を赤色に変更
                    shp.Line.ForeColor.RGB = RGB(255, 0, 0)
                End If
            End If
        Next shp
    Next sld
End Sub

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

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

例では枠線の色を変更してますが、
他の属性に変更したり、いろいろ応用出来ると思います。