Parfois, vous souhaiterez peut-être ajouter un élément de surprise à votre présentation PowerPoint en mélangeant les diapositives de manière aléatoire. Par exemple, vous créez peut-être une présentation pour vos élèves et souhaitez mélanger tout ou partie des flashcards.
Par défaut, PowerPoint ne dispose pas de fonctionnalité intégrée pour cela, mais vous pouvez y parvenir à l'aide d'une macro. Dans ce guide étape par étape, nous allons vous montrer comment mélanger manuellement les diapositives et comment utiliser un code VBA pour automatiser le processus de lecture aléatoire.
Comment mélanger manuellement les diapositives dans PowerPoint
Dans Microsoft PowerPoint, vous pouvez mélanger manuellement les diapositives de votre présentation pour les afficher dans un ordre aléatoire à l'aide de la vue « Trieuse de diapositives ». Bien que cette méthode ne soit pas aussi aléatoire que l'utilisation de macros, elle vous permet néanmoins de réorganiser les diapositives dans un ordre différent.
Pour mélanger et randomiser manuellement les diapositives d'une présentation PowerPoint, suivez les étapes ci-dessous.
Gardez à l'esprit que cette méthode ne garantit pas un ordre complètement aléatoire, car cela dépend de votre disposition manuelle. Si vous souhaitez voir une diapositive complètement aléatoire apparaître après avoir appuyé sur le bouton pour afficher la diapositive suivante, vous pouvez utiliser la méthode des macros VBA pour un brassage aléatoire plus précis et automatisé..
Comment randomiser des diapositives PowerPoint à l'aide d'un code VBA
Pour vous assurer que vos diapositives PowerPoint sont lues dans un ordre complètement aléatoire, vous devrez utiliser un peu de codage. L'option Macros de Microsoft Office PowerPoint vous permet d'exécuter des codes VBA pour mélanger automatiquement les diapositives de votre présentation.
Dans ce didacticiel, nous allons vous montrer comment mélanger vos diapositives sans doublons. Pour randomiser les diapositives dans PowerPoint afin que la même diapositive ne se répète pas, suivez les étapes ci-dessous.
Sous Shuffleslides()
Première diapositive = 2
Dernière diapositive = 5
Randomiser
'générer un non aléatoire entre la première et la dernière diapositive'
GRN :
RSN = Int((LastSlide – FirstSlide + 1) * Rnd + FirstSlide)
Si RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex Alors GoTo GRN
ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)
Fin de l'abonnement
Dans l'éditeur VBA, ajustez les numéros de diapositives après « FirstSlide » et « LastSlide » pour spécifier la plage de diapositives que vous souhaitez inclure dans la lecture aléatoire. Par défaut, la lecture aléatoire commence à partir de la diapositive 2 pour éviter d'inclure la diapositive de titre. Si vous souhaitez exclure la lecture aléatoire des diapositives de titre, conservez « FirstSlide = 2 » tel quel..
Par exemple, disons que vous avez une présentation comportant dix diapositives et que vous souhaitez éviter de mélanger la diapositive de titre. Dans ce cas, définissez « FirstSlide = 2 » et « LastSlide = 10 ». De cette façon, seules les diapositives 2 à 10 seront incluses dans le processus de lecture aléatoire et votre diapositive de titre ne sera pas affectée.
Entrez maintenant dans le mode Présentation et cliquez sur le bouton de la première diapositive pour mélanger vos diapositives de manière aléatoire. Profitez de votre présentation dynamique et non répétitive.
Comment mélanger uniquement des diapositives paires ou impaires
Si vous souhaitez mélanger uniquement des diapositives spécifiques dans votre présentation, comme les diapositives paires ou impaires, vous pouvez utiliser le code VBA suivant pour randomiser uniquement les diapositives paires ou impaires sans perturber le reste.
Pour ce faire, suivez les étapes ci-dessus jusqu'à ce que vous arriviez à la fenêtre Visual Basic Editor et insérez le code suivant.
Sous Shuffleslides()
EvenShuffle = True (remplacer par false si seules les diapositives impaires sont mélangées)
FirstSlide = 2 (doit être un nombre pair/impair en fonction des besoins)
Dernière diapositive = 8
Randomiser
Pour i = FirstSlide To LastSlide Étape 2
Générer : « générer un non aléatoire entre la première et la dernière diapositive »
RSN = Int((LastSlide – FirstSlide + 1) * Rnd) + FirstSlide
Si EvenShuffle = True Alors
Si RSN Mod 2 = 1 Alors GoTo générer
Autre
Si RSN Mod 2 = 0 Alors GoTo générer
Terminer si
ActivePresentation.Slides(i).MoveTo (RSN)
Si i
Si i >RSN Alors ActivePresentation.Slides(RSN + 1).MoveTo (i)
Suivant je
End Sub
Comment mélanger vos diapositives dans une boucle sans fin
Le didacticiel ci-dessus montre comment mélanger des diapositives PowerPoint et les lire dans un ordre aléatoire sans répétition. Cependant, après une boucle, le même ordre de lecture aléatoire est conservé, sauf si vous mélangez à nouveau les diapositives.
Pour parcourir automatiquement toutes les diapositives dans une boucle sans fin pendant le mode diaporama avec un nouvel ordre aléatoire pour chaque boucle, vous pouvez utiliser le code suivant. Assurez-vous de modifier les chiffres après FirstSlide = et LastSlide = pour les adapter au nombre de diapositives de votre présentation.
Position publique, plage, AllSlides() sous forme d'entier
Sub ShuffleAndBegin()
Première diapositive = 2
Dernière diapositive = 6
Plage = (LastSlide – FirstSlide)
ReDim AllSlides (0 à la plage)
Pour i = 0 à la plage
Toutes les diapositives(i) = Première diapositive + i
Suivant je
Randomiser
Pour N = 0 à la plage
J = Int((Plage + 1) * Rnd)
temp = AllSlides(N)
Toutes les diapositives (N) = Toutes les diapositives (J)
AllSlides(J) = temp
N suivant
Position = 0
ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)
Fin de l'abonnement
Sous-avance()
Position = Position + 1
Si Position >Plage Alors
ShuffleAndBegin
Autre
ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)
Fin si
Fin du sous-titre