初心者でも安心！PowerPoint VBAでスライド範囲（SlideRange）を活用する方法

PowerPointでプレゼンテーションを作成していると、「複数のスライドを一度に操作したい」と思うことはありませんか？そんなときに役立つのが、PowerPoint VBAの「SlideRange（スライドレンジ）」です。今回は、初心者の方でもわかりやすいように、スライド範囲の基本から実際の活用方法まで、丁寧にご紹介します。

SlideRangeとは？
SlideRangeの基本的な使い方
SlideRangeを活用した実践例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

SlideRangeとは？

PowerPointのイメージ

PowerPointのVBAにおける「SlideRange」は、複数のスライドをまとめて操作するためのオブジェクトです。例えば、スライド1とスライド3をまとめて選択し、背景色を変更したり、スライドの順番を入れ替えたりすることができます。

SlideRangeの基本的な使い方

では、実際にVBAでSlideRangeを使ってみましょう。

スライドの範囲を指定する

スライドの番号や名前を使って、操作したいスライドの範囲を指定します。

Dim mySlides As SlideRange

Set mySlides = ActivePresentation.Slides.Range(Array(1, 3))

このコードは、スライド1とスライド3を選択するものです。

選択したスライドの背景色を変更する

指定したスライド範囲に対して、背景色を変更することができます。

mySlides.Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

このコードは、選択したスライドの背景を「Late Sunset」のグラデーションに変更します。

スライドの順番を入れ替える

スライドの順番を変更するには、スライドを移動させる必要があります。

mySlides.MoveTo (2)

このコードは、選択したスライドを2番目の位置に移動させます。

SlideRangeを活用した実践例

実際のプレゼンテーション作成で役立つ、SlideRangeを使った実践例をご紹介します。

特定のスライドの背景色を一括変更する

例えば、タイトルスライドの背景色を一括で変更したい場合、以下のようにコードを記述します。

Dim slide As slide

For Each slide In ActivePresentation.Slides

  If slide.Layout = ppLayoutTitle Then

    slide.Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

  End If

Next slide

このコードは、タイトルレイアウトのスライドすべての背景を変更します。

選択したスライドをカスタムショーとして保存する

スライドソータービューでCtrl+クリックで選択したスライドをカスタムショーとして保存するには、以下のコードを使用します。

Dim slideIDs() As Long

Dim x As Long

For x = 1 To ActiveWindow.Selection.SlideRange.Count

  slideIDs(x) = ActiveWindow.Selection.SlideRange(x).SlideID

Next x

ActivePresentation.SlideShowSettings.NamedSlideShows.Add "CustomShow", slideIDs

このコードは、選択したスライドを「CustomShow」という名前のカスタムショーとして保存します。