powerpointで各ページに1枚ずつ貼られている画像をマクロで保存について

Question

こんにちは。

マクロのプログラムで助けてほしいです。

powerpointで1スライドに1枚png画像（計100枚）が貼られています。

この画像1枚1枚を1-1.png　1-2.png　．．．1-10.png 2-1.png　2-2.png ...10-10.png
という名前で保存したいです。

調べてみると似たようなプログラムは多くあり、そのプログラムを引用して試行錯誤したのですが、
エラーを対処できませんでした。

わかる方、ご教授よろしくお願いします。

Sub パワポの画像を自動保存()
    Dim a As Integer
    Dim b As Integer
    
    For a = 1 To 10
    
        For b = 1 To 10
            
            With ActivePresentation.Slides.Shapes.Export Path & a & "-" & b & ".png", _
                            ppShapeFormatPNG, , , ppRelativeToSlide
                  
        Next
    Next
End Sub

Answer 1

試行錯誤についての使い方を間違っていませんか？

Web上にあるコードを単にコピペして実行しただけですよね？

プログラムを１つも知らない方・知ろうとしない方に
教える事は何もありません。