パワポ ｖｂａ 全てのスライドをループする

質問

エクセルなら
全てのシートをループして作業する場合は

For Each s In Worksheets

Next

でできますが、

パワポで全てのスライドをループして
各スライドで作業したい場合は、
どのようなコードになるのでしょうか？

回答No.1

misatoanna · ベストアンサー

具体的にどのような処理をされるのかわかりませんが、次のような記述になります。

For i = 1 To ActivePresentation.Slides.Count
　　With ActivePresentation.Slides(i)
　　　　ここに作業内容
　　End With
Next

または

For Each sld In ActivePresentation.Slides
　　With sld
　　　　ここに作業内容
　　End With
Next

お礼

どうもありがとうございました。