対象:PowerPoint2003, PowerPoint2007, PowerPoint2010
章扉やセクション扉のスライドのレイアウトを「タイトルスライド」に設定して、大量のスライドの含まれているプレゼンテーションファイルを作成しているときに、タイトルスライドだけにしたいということがありました。
大量のスライドが含まれていて、目視確認しながらタイトルスライドだけにするのはとても面倒でしたので、VBAでマクロを作って処理しました。
[スポンサードリンク]
タイトルスライドだけにするサンプルマクロ
以下のマクロを実行すると、アクティブなプレゼンテーションファイルで、タイトルスライドだけが残ります。
Sub タイトルスライドのみにする()
With ActivePresentation.Slides
Dim i As Long
For i = .Count To 1 Step -1
With .Item(i)
If .Layout <> ppLayoutTitle Then
.Delete
End If
End With
Next
End With
End Sub
With ActivePresentation.Slides
Dim i As Long
For i = .Count To 1 Step -1
With .Item(i)
If .Layout <> ppLayoutTitle Then
.Delete
End If
End With
Next
End With
End Sub
サンプルマクロで行っている処理
アクティブなプレゼンテーションファイルのSlideの後ろから前にFor~Nextループを回して、
With ActivePresentation.Slides
Dim i As Long
For i = .Count To 1 Step -1
もしも、タイトルスライドでなかったときに、
With .Item(i)
If .Layout <> ppLayoutTitle Then
削除を行っています。
.Delete
最終更新日時:2020-02-18 06:06
[スポンサードリンク]
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Slide・スライド » タイトルスライドのみにするPowerPointマクロ