こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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


For Each s In Worksheets

Next

でできますが、

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

投稿日時 - 2014-07-19 11:50:31

QNo.8684138

暇なときに回答ください

質問者が選んだベストアンサー

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

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

投稿日時 - 2014-07-19 14:52:11

お礼

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

投稿日時 - 2014-08-08 22:21:59

このQ&Aは役に立ちましたか?

6人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問