【PowerPoint活用術】ランダムスライドショーを実行する方法

今回も会員様よりご質問いただきましたお問い合わせについて、解説も含め説明いたします

要件①：パワーポイントのスライドショーを毎回ランダム表示させたい
要件②：表紙と最終ページは固定
要件③：ページ数は変動する（10枚のときもあれば20枚のときも・・・）

今回はパワーポイントの「Visual Basic機能」を使って実現したいと思います。

- 0.1 ランダム表示パワーポイントの作成
1 ランダム表示パワーポイントの実行

ランダム表示パワーポイントの作成

まずはパワーポイントのマクロ機能使うための準備を行います。

①「ファイル」タブで表示されたメニューから「オプション」を選択します
②表示されたメニューから「リボンのユーザー設定」をクリック
③メニュー項目が表示されます。
「開発」に☑（チェック）が入っていなければ、チェックを入れます。　
これで最初のメニューに「開発」というタグが表示されます。

④「開発」タグから「Visual Basic」を選択。　新たな開発ページが立ち上がると思います。

⑤「挿入」タグを押して「標準モジュール」を選択します。表示されたページにコードを記述していきます。

では次のコードを記述、またはコピー＆ペイストで標準モジュールに書き写してください。
シングルクォーテーション（’）で始まる部分（緑色の部分）はコメントですので、記述しなくても大丈夫です。
コメント行には各コードの意味を記しておきます。

Sub RandomSS()
Dim PgSum, SS, i, M, N, SetSS()     '変数宣言

On Error Resume Next                'エラー発生時はエラーを無視して次の処理に
ActivePresentation.SlideShowSettings.NamedSlideShows("CurrentSS").Delete
    'CurrentSS　という名前のスライドショーを取得し削除
On Error GoTo 0                           '「On Error Resume Next」は以下の行まで

PgSum = ActivePresentation.Slides.Count   '最後のスライド番号を取得
ReDim SetSS(PgSum) '関数の設定

For i = 2 To PgSum - 1                     '2枚目からページ数-1 だけ繰り返す
SS = SS & Format(i, "000") & ","           'テキスト指定 例）SS002,SS003,SS004,…
Next

With ActivePresentation                    '作業中のプレゼンシートの指定
SetSS(1) = .Slides(1).SlideID              '関数の定義
SetSS(PgSum) = .Slides(PgSum).SlideID

For i = 2 To PgSum - 1                     '2枚目からページ数-1 だけ繰り返す
M = Int(Rnd * (PgSum - i))                 '（1～ページ数-i）の乱数を取得しMに代入
N = Split(SS, ",")(M)                      'SSを","で分割して配列化、M番目の値を取得
SetSS(i) = .Slides(N * 1).SlideID          '関数で乱数番目のスライドを指定
SS = Replace(SS, N & ",", "")              'SS を置き換える
Next

With .SlideShowSettings                    'SlideShowSettings(次no
の表示スライド）の指定
.RangeType = ppShowNamedSlideShow
.NamedSlideShows.Add "CurrentSS", SetSS '"CurrentSS"　をスライドショーに追加
.SlideShowName = "CurrentSS" '"CurrentSS"名のスライドショーを実行
.Run
End With
End With
End Sub

以下のような感じになりますね。