PowerPointVBAの基礎

開いているすべてのプレゼンテーションファイルをループ

 

Dim prs As Presentation
For Each prs In Presentations
  '各プレゼンテーションに対する処理を行う
Next prs

プレゼンテーションを閉じる

'上書きしないで閉じる
ActivePresentation.Saved = msoTrue
ActivePresentation.Close

'上書き保存して閉じる
ActivePresentation.Save
ActivePresentation.Close

新規プレゼンテーションを作成

Presentations.Add

スライドを追加

ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutTitle

 

 

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です