So sortieren Sie Folien in einer PowerPoint-Präsentation zufällig

Manchmal möchten Sie Ihrer PowerPoint-Präsentation möglicherweise ein Überraschungselement hinzufügen, indem Sie die Folien nach dem Zufallsprinzip mischen. Vielleicht erstellen Sie zum Beispiel eine Präsentation für Ihre Schüler und möchten einige oder alle Lernkarten neu anordnen.

PowerPoint verfügt hierfür standardmäßig nicht über eine integrierte Funktion, Sie können dies jedoch mithilfe eines Makros erreichen. In dieser Schritt-für-Schritt-Anleitung zeigen wir Ihnen, wie Sie Folien manuell mischen und einen VBA-Code verwenden, um den zufälligen Mischvorgang zu automatisieren.

So mischen Sie Folien in PowerPoint manuell um

In Microsoft PowerPoint können Sie die Folien in Ihrer Präsentation mithilfe der Ansicht „Foliensortierung“ manuell neu anordnen, um sie in zufälliger Reihenfolge anzuzeigen. Obwohl diese Methode möglicherweise nicht so zufällig ist wie die Verwendung von Makros, können Sie die Folien dennoch in einer anderen Reihenfolge neu anordnen.

Um die Folien in einer PowerPoint-Präsentation manuell zu mischen und zufällig anzuordnen, führen Sie die folgenden Schritte aus.

Öffnen Sie Ihre PowerPoint-Präsentation und gehen Sie im Menüband oben auf dem Bildschirm zur Registerkarte Ansicht. Klicken Sie darauf, um auf das Menü Ansichtzuzugreifen.

Suchen Sie im Menü Ansichtnach der Gruppe „Präsentationsansichten“ und wählen Sie die Option Foliensortiereraus. Dadurch wird Ihre Präsentation in die Ansicht Foliensortierungumgeschaltet, in der Sie alle Miniaturansichten der Folien auf einmal sehen können.

In der Ansicht Foliensortierungwerden möglicherweise größere Miniaturansichten der Folien angezeigt. Wenn Ihre Präsentation viele Folien enthält, klicken Sie auf die OptionVerkleinern, dargestellt durch das –-Symbolin der unteren Symbolleiste, um einen besseren Überblick über alle Folien zu erhalten. Klicken Sie so lange darauf, bis Sie alle Folien der Präsentation auf einmal auf dem Bildschirm sehen können.

Jetzt können Sie die Folien ganz einfach mischen, indem Sie auf eine Folie klicken und sie an eine zufällige Position auf dem Bildschirm ziehen. Wiederholen Sie diesen Schritt mit anderen Folien, um sie zufällig zu mischen. Ordnen Sie die Folien so lange neu an, bis Sie mit der neuen Reihenfolge zufrieden sind.

Bedenken Sie, dass diese Methode keine völlig zufällige Reihenfolge garantiert, da sie von Ihrer manuellen Anordnung abhängt. Wenn Sie möchten, dass eine völlig zufällige Folie erscheint, nachdem Sie auf die Schaltfläche zum Anzeigen der nächsten Folie geklickt haben, können Sie die VBA-Makros-Methode für eine präzisere und automatisierte Zufallsauswahl verwenden..

So sortieren Sie PowerPoint-Folien mithilfe eines VBA-Codes zufällig

Um sicherzustellen, dass Ihre PowerPoint-Folien in völlig zufälliger Reihenfolge abgespielt werden, müssen Sie ein wenig programmieren. Mit der Option „Makros“ in Microsoft Office PowerPoint können Sie VBA-Codes ausführen, um die Folien in Ihrer Präsentation automatisch neu anzuordnen.

In diesem Tutorial zeigen wir Ihnen, wie Sie Ihre Folien ohne Duplikate anordnen. Um Folien in PowerPoint zufällig anzuordnen, damit sich dieselbe Folie nicht wiederholt, führen Sie die folgenden Schritte aus.

Um zu beginnen, müssen Sie in Ihrem PowerPoint-Menüband auf die Registerkarte Entwicklerzugreifen. Folgen Sie dazu dem Pfad Datei>Optionenoder klicken Sie mit der rechten Maustaste auf eine beliebige leere Stelle im Menüband und wählen Sie Menüband anpassen. Dadurch wird ein Dialogfeld geöffnet.

Scrollen Sie im Dialogfeld PowerPoint-Optionennach unten, bis Sie die Option Entwicklerfinden. Aktivieren Sie das Kontrollkästchen neben Entwicklerund klicken Sie auf OK.

Wählen Sie nun die Registerkarte Entwicklerund wählen Sie Makros. Im Popup-Fenster können Sie ein neues Makro einfügen. Wählen Sie einen Namen dafür (z. B. Shuffleslides) und klicken Sie auf Erstellen, um fortzufahren.

Dadurch wird das Fenster Visual Basic Editorgeöffnet, in dem Sie den Code eingeben können, um Ihre PowerPoint-Präsentationsfolien zufällig anzuordnen.

Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das geöffnete Visual Basic-Fenster ein.

Sub Shuffleslides()

FirstSlide = 2

LastSlide = 5

Zufällig

„Erzeuge eine zufällige Zahl zwischen der ersten und der letzten Folie“

GRN:

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

Wenn RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex, dann gehe zu GRN

ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

End Sub

Nachdem Sie den Code eingefügt haben, werden Sie feststellen, dass in der Standardeinstellung die Folien 2 bis 5 gemischt werden. Möglicherweise enthält Ihre Präsentation jedoch nicht genau fünf Folien, aber das ist kein Problem. Sie können diesen Teil des Codes ganz einfach an Ihre Bedürfnisse anpassen.

Passen Sie im VBA-Editor die Foliennummern nach „FirstSlide“ und „LastSlide“ an, um den Folienbereich anzugeben, den Sie in die Reihenfolge einbeziehen möchten. Standardmäßig beginnt das Mischen bei Folie 2, um zu vermeiden, dass die Titelfolie einbezogen wird. Wenn Sie die Titelfolien vom Mischen ausschließen möchten, behalten Sie „FirstSlide = 2“ bei..

Angenommen, Sie haben eine Präsentation mit zehn Folien und möchten das Mischen der Titelfolie überspringen. Stellen Sie in diesem Fall „FirstSlide = 2“ und „LastSlide = 10“ ein. Auf diese Weise werden nur die Folien 2 bis 10 in den Mischvorgang einbezogen und Ihre Titelfolie bleibt davon unberührt.

Nachdem Sie den Code für Ihre Präsentation fertiggestellt und angepasst haben, ist es an der Zeit, mit den Folien fortzufahren. Fügen Sie dazu eine beliebige Form auf der ersten Folie (oder einer beliebigen Folie Ihrer Wahl) ein, wählen Sie dann die Form aus und navigieren Sie zu Einfügen>Aktion>Makro ausführen. Wählen Sie dann das Makro aus, das Sie gerade erstellt haben. Dadurch wird das Mischen Ihrer Folien während des Diashow-Modus aktiviert, was Ihrem Publikum ein ansprechendes Erlebnis bietet.

Speichern Sie Ihre PowerPoint-Datei in einem PPTM-Format (Makro-fähige Präsentation), um die von Ihnen erstellten Makros beizubehalten. Wählen Sie Datei>Speichern unterund wählen Sie PPTM aus der Dropdown-Liste, um sicherzustellen, dass die von Ihnen erstellten Makros erhalten bleiben und nicht verloren gehen.

Gehen Sie nun in den Präsentationsmodus und klicken Sie auf die Schaltfläche auf der ersten Folie, um Ihre Folien nach dem Zufallsprinzip zu mischen. Genießen Sie Ihre dynamische und sich nicht wiederholende Präsentation.

So mischen Sie nur gerade oder ungerade Folien

Falls Sie nur bestimmte Folien in Ihrer Präsentation neu anordnen möchten, beispielsweise gerade oder ungerade Folien, können Sie den folgenden VBA-Code verwenden, um nur Folien mit geraden oder ungeraden Zahlen zufällig anzuordnen, ohne den Rest zu stören.

Befolgen Sie dazu die Schritte von oben, bis Sie zum Fenster des Visual Basic-Editors gelangen, und fügen Sie den folgenden Code ein.

Sub Shuffleslides()

EvenShuffle = True (durch false ersetzen, wenn nur ungerade Folien gemischt werden)

FirstSlide = 2 (sollte je nach Bedarf eine gerade/ungerade Zahl sein)

LastSlide = 8

Zufällig

Für i = FirstSlide To LastSlide Schritt 2

Generieren: „Generiere eine zufällige Nummer zwischen der ersten und letzten Folie“

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

Wenn EvenShuffle = True Then

Wenn RSN Mod 2 = 1, dann GoTo generieren

Sonst

Wenn RSN Mod 2 = 0, dann GoTo generieren

Ende wenn

ActivePresentation.Slides(i).MoveTo (RSN)

Wenn i

Wenn i >RSN, dann ActivePresentation.Slides(RSN + 1).MoveTo (i)

Als nächstes

End Sub

So mischen Sie Ihre Folien in einer Endlosschleife

Das obige Tutorial zeigt, wie Sie PowerPoint-Folien in zufälliger Reihenfolge ohne Wiederholung abspielen. Nach einer Schleife bleibt jedoch die gleiche Reihenfolge erhalten, es sei denn, Sie mischen die Folien erneut.

Um im Diashow-Modus automatisch alle Folien in einer Endlosschleife mit einer neuen zufälligen Reihenfolge für jede Schleife durchzugehen, können Sie den folgenden Code verwenden. Stellen Sie sicher, dass Sie die Zahlen nach FirstSlide = und LastSlide = ändern, damit sie zur Anzahl der Folien in Ihrer Präsentation passen.

Öffentliche Position, Bereich, AllSlides() als Ganzzahl

Sub ShuffleAndBegin()

FirstSlide = 2

LastSlide = 6

Bereich = (LastSlide – FirstSlide)

ReDim AllSlides(0 To Range)

Für i = 0 To Range

AllSlides(i) = FirstSlide + i

Als nächstes

Zufällig

Für N = 0 bis Bereich

J = Int((Bereich + 1) * Rnd)

temp = AllSlides(N)

AllSlides(N) = AllSlides(J)

AllSlides(J) = temp

Nächstes N

Position = 0

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)

Sub beenden

Sub Advance()

Position = Position + 1

Wenn Position >Bereich dann

ShuffleAndBegin

Sonst

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)

Ende wenn

End Sub