PowerPoint スライドのシャッフル:ランダムなプレゼンテーションのためのマニュアルと VBA ガイド

場合によっては、スライドをランダムにシャッフルして、PowerPoint プレゼンテーションに驚きの要素を追加したい場合があります。たとえば、生徒向けのプレゼンテーションを作成し、フラッシュカードの一部またはすべてをシャッフルしたいとします。

デフォルトでは、PowerPoint にはこの機能が組み込まれていませんが、マクロを使用してこれを実現できます。このステップバイステップ ガイドでは、スライドを手動でシャッフルする方法と、VBA コードを使用してランダム シャッフル プロセスを自動化する方法を説明します。

PowerPoint でスライドを手動でシャッフルする方法

Microsoft PowerPoint では、「スライド ソーター」ビューを使用してプレゼンテーション内のスライドを手動でシャッフルし、ランダムな順序で表示できます。この方法はマクロを使用するほどランダムではないかもしれませんが、それでもスライドを別の順序で並べ替えることができます。

PowerPoint プレゼンテーションのスライドを手動でシャッフルしてランダム化するには、以下の手順に従います。

<オル>

PowerPoint プレゼンテーションを開き、画面上部のリボン メニューの [表示] タブに移動します。クリックして [表示] メニューにアクセスします。

<オル>

[表示] メニューで、[プレゼンテーション ビュー] グループを探し、[スライド ソーター] オプションを選択します。これにより、プレゼンテーションがスライド並べ替えビューに切り替わり、すべてのスライドのサムネイルが一度に表示されます。

<オル>

スライド並べ替えビューでは、スライドの大きなサムネイルが表示される場合があります。プレゼンテーションに多数のスライドがある場合は、下部ツールバーの – アイコンで表される [ズームアウト] オプションをクリックして、すべてのスライドの概要をよりよく確認します。プレゼンテーション内のすべてのスライドが一度に画面上に表示されるまで、クリックし続けます。

スライドをクリックして画面上のランダムな位置にドラッグすることで、スライドを簡単にシャッフルできるようになりました。他のスライドでもこの手順を繰り返して、ランダムにシャッフルします。新しい順序に満足するまで、スライドの並べ替えを続けます。

この方法は、手動での配置に依存するため、完全にランダムな順序を保証するものではないことに注意してください。次のスライドを表示するボタンを押した後に完全にランダムなスライドが表示されるようにしたい場合は、VBA マクロを使用して、より正確かつ自動化されたランダム シャッフルを行うことができます。

VBA コードを使用して PowerPoint スライドをランダム化する方法

PowerPoint スライドが完全にランダムな順序で再生されるようにするには、少しコーディングする必要があります。 Microsoft Office PowerPoint のマクロ オプションを使用すると、VBA コードを実行してプレゼンテーション内のスライドを自動的にシャッフルできます。

このチュートリアルでは、スライドを重複せずにシャッフルする方法を説明します。同じスライドが繰り返されないように PowerPoint でスライドをランダム化するには、次の手順に従います。

<オル>

始めるには、PowerPoint のリボン メニューの [開発] タブにアクセスする必要があります。これを行うには、[ファイル]> [オプション] のパスに従うか、リボン メニューの空いているスペースを右クリックして、[リボンのカスタマイズ] を選択します。ダイアログ ボックスが開きます。

<オル>

[PowerPoint のオプション] ダイアログ ボックスで、[開発者向け] オプションが見つかるまで下にスクロールします。 「開発者」の横にあるチェックボックスをオンにして、「OK」をクリックします。

<オル>

次に、[開発] タブを選択し、[マクロ] を選択します。ポップアップ ウィンドウで、新しいマクロを挿入できます。名前（たとえば、Shuffleslides）を選択し、「作成」をクリックして続行します。

<オル>

これにより、Visual Basic Editor ウィンドウが開き、PowerPoint プレゼンテーション スライドをランダム化するコードを入力できます。

<オル>

次の VBA コードをコピーし、開いている Visual Basic ウィンドウに貼り付けます。

サブ シャッフルスライド()

最初のスライド =2

LastSlide =5

ランダム化

「最初のスライドと最後のスライドの間にランダムな no を生成します」

GRN:

RSN =Int((LastSlide – FirstSlide + 1) * Rnd + FirstSlide)

RSN =ActivePresentation.SlideShowWindow.View.Slide.SlideIndex の場合、GRN に移動

ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

エンドサブ

<オル>

コードを貼り付けた後、デフォルト設定ではスライド 2 ～ 5 がシャッフルされることがわかります。ただし、プレゼンテーションにはちょうど 5 枚のスライドが含まれていない可能性がありますが、問題はありません。コードのこの部分は、ニーズに合わせて簡単にカスタマイズできます。

VBA エディターで、「FirstSlide」と「LastSlide」に続くスライド番号を調整して、シャッフルに含めるスライドの範囲を指定します。デフォルトでは、タイトル スライドが含まれないように、シャッフルはスライド 2 から始まります。タイトル スライドをシャッフルから除外したい場合は、「FirstSlide =2」のままにしてください。

たとえば、10 枚のスライドからなるプレゼンテーションがあり、タイトル スライドのシャッフルを省略したいとします。その場合は「FirstSlide =2」「LastSlide =10」と設定します。この方法では、スライド 2 ～ 10 のみがシャッフル プロセスに含まれ、タイトル スライドは影響を受けません。

<オル>

プレゼンテーション用のコードが完成してカスタマイズされたので、次はスライドにアクション ボタンを追加します。これを行うには、最初のスライド (または任意のスライド) に任意の図形を挿入し、その図形を選択して、[挿入]> [アクション]> [マクロの実行] に移動します。次に、作成したばかりのマクロを選択します。これにより、スライド ショー モード中にスライドのシャッフルが有効になり、視聴者に魅力的なエクスペリエンスを提供します。

<オル>

作成したマクロを保持するには、PowerPoint ファイルを PPTM 形式 (マクロ有効プレゼンテーション) で保存します。 [ファイル]> [名前を付けて保存] を選択し、ドロップダウン リストから PPTM を選択すると、作成したマクロが失われずに保存されます。

次にプレゼンテーション モードに入り、最初のスライドのボタンをクリックしてスライドをランダムにシャッフルします。ダイナミックで繰り返しのないプレゼンテーションをお楽しみください。

偶数または奇数のスライドのみをシャッフルする方法

偶数または奇数のスライドなど、プレゼンテーション内の特定のスライドのみをシャッフルしたい場合は、次の VBA コードを使用して、残りの部分を妨げずに偶数または奇数のスライドのみをランダム化できます。

これを行うには、Visual Basic Editor ウィンドウが表示されるまで上記の手順に従い、次のコードを挿入します。

サブ シャッフルスライド()

EvenShuffle =True (奇数番号のスライドのみをシャッフルする場合は false に置き換えます)

FirstSlide =2 (必要に応じて偶数/奇数にする必要があります)

最後のスライド =8

ランダム化

For i =FirstSlide から LastSlide ステップ 2

生成:「最初のスライドと最後のスライドの間にランダムな番号を生成します」

RSN =Int((LastSlide – FirstSlide + 1) * Rnd) + FirstSlide

EvenShuffle =True の場合

RSN Mod 2 =1 の場合、GoTo 生成

それ以外

RSN Mod 2 =0 の場合、GoTo 生成

終了の場合

ActivePresentation.Slides(i).MoveTo (RSN)

If i

If i> RSN then ActivePresentation.Slides(RSN + 1).MoveTo (i)

次は

エンドサブ

終わりのないループでスライドをシャッフルする方法

上記のチュートリアルでは、PowerPoint スライドをシャッフルし、繰り返さずにランダムな順序で再生する方法を示します。ただし、1 つのループの後は、再度スライドをシャッフルしない限り、同じシャッフル順序が維持されます。

スライド ショー モード中に、ループごとに新しいランダムな順序で無限ループ内のすべてのスライドを自動的に実行するには、次のコードを使用できます。プレゼンテーション内のスライドの数に合わせて、FirstSlide =と LastSlide =の後の数字を必ず変更してください。

公開位置、範囲、整数としての AllSlides()

サブ ShuffleAndBegin()

最初のスライド =2

最後のスライド =6

範囲 =(LastSlide – FirstSlide)

すべてのスライドを再調整(0 から範囲)

For i =0 から範囲

AllSlides(i) =FirstSlide + i

次は

ランダム化

N =0 の場合、範囲まで

J =Int((範囲 + 1) * Rnd)

temp =すべてのスライド(N)

すべてのスライド(N) =すべてのスライド(J)

AllSlides(J) =温度

次のN

位置 =0

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(位置)

エンドサブ

サブアドバンス()

位置 =位置 + 1

位置> 範囲の場合

シャッフルして開始

それ以外

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(位置)

終了の場合

エンドサブ

プレゼンテーションを開始する時間です

これで、プロのように PowerPoint のスライドをシャッフルする方法がわかりました。これらの方法を試して、教育者、ビジネス専門家、またはランダムなスライド順序が必要なシナリオ向けに魅力的なプレゼンテーションを作成してください。ダイナミックで魅力的なスライドショーをお楽しみください。