こんにちは。
マクロのプログラムで助けてほしいです。
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
という名前で保存したいです。
調べてみると似たようなプログラムは多くあり、そのプログラムを引用して試行錯誤したのですが、
エラーを対処できませんでした。
わかる方、ご教授よろしくお願いします。
VBA
1Sub パワポの画像を自動保存() 2 Dim a As Integer 3 Dim b As Integer 4 5 For a = 1 To 10 6 7 For b = 1 To 10 8 9 With ActivePresentation.Slides.Shapes.Export Path & a & "-" & b & ".png", _ 10 ppShapeFormatPNG, , , ppRelativeToSlide 11 12 Next 13 Next 14End Sub 15 16 17 18 19 20 21 22 23 24 25 26
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。