Les boutons d’action dans un diaporama PowerPoint

Formation PowerPoint, tutoriel & guide de travaux pratiques en pdf.

LES BOUTONS D’ACTION

Les boutons d’action sont des boutons prédéfinis qui vont vous permettre de gérer la navigation entre vos diapositives.
Ceux-ci se trouvent dans la barre d’outils dessin sous PPT 2002 et 2003.
Vous pouvez également utiliser le menu Diaporama/Boutons d’action.
Sous PPT 2007 :
Activer le menu Insertion, dans le ruban sélectionner Formes, et ceux-ci se trouvent en bas de la liste déroulante.

Détail des boutons d’action

Lorsque vous positionnez un bouton d’action sur une diapositive une fenêtre de paramétrage s’ouvre.
Cette fenêtre va vous permettre de paramétrer l’action du bouton, cependant, certains sont déjà préparamétrés.
Il peut y avoir deux types d’actions : sur le clic du bouton ou sur le survol par le curseur de la souris (vous trouverez le même type d’action pour ces deux évènements).
• Aucune : aucune action ne sera effectuée
• Créer un lien hypertexte vers : vous permettra de créer un lien hypertexte vers une autre diapositive ou une URL. (Pour certains boutons d’action, cette propriété est définie par défaut.)
• Exécuter le programme : va vous permettre de lancer un programme (.exe).
• Exécuter la macro : va vous permettre d’exécuter une macro VBA.
• Action Ole : n’est pas utilisée pour les boutons d’action.
• Activer un son : va vous permettre de lancer un son lors d’une action sur le bouton (le son doit d’abord être inséré dans la diapositive pour apparaître dans la liste).
Vous pourrez ouvrir cette fenêtre à tout moment en effectuant un clic droit sur la souris (menu contextuel) et en sélectionnant Paramètres des Actions.
Le tableau suivant vous présentera les 12 boutons d’action.

Affecter les boutons d’action à toutes les diapositives

Si vous avez plusieurs diapositives et que vous voulez ajouter à celles-ci les boutons « Suivant », « Précédent » et « Accueil », cela devient fastidieux de le faire pour chaque diapositive.
Nous allons voir différentes manières de réaliser simplement cette opération.

Manuellement

Il est donc possible d’affecter manuellement nos boutons d’action à chaque diapositive.
Pour effectuer cette opération nous allons utiliser un masque de diapositive.
Allez dans le menu Affichage/Masque/Masque de diapositive.
Ensuite positionnez vos trois boutons d’action.
Renommez le masque PageNormal à l’aide du cinquième bouton de la barre d’outils.
Puis cliquez sur Conserver le masque et ensuite cliquez sur Désactiver le mode Masque.
Toutes vos diapositives comporteront maintenant vos trois boutons d’action.
Cependant, l’inconvénient de cette méthode est que la première diapositive comporte les boutons Précédent et Accueil. Nous allons voir comment modifier cela.
• Repassez en mode diapositive.
• Sélectionnez la diapositive dans le volet Office.
• Sélectionnez Ajouter une présentation.
Vous verrez alors une deuxième présentation identique à la première s’afficher à la droite de celle-ci.
• Sélectionnez-la.
• Passez en mode masque de diapositive.
• Enlevez les boutons Précédent et Accueil.
Puis renommez-la en PremièrePage, et désactivez le mode masque.
Mais vous verrez que toutes les diapositives ont pris le nouveau masque.
Pour rétablir l’ensemble :
• Sélectionnez le premier masque et cliquez sur Appliquer à toutes les diapositives.
• Sélectionnez la première diapositive, allez dans le dernier masque (PremièrePage) et sélectionnez Appliquer aux diapositives sélectionnées.
Vous avez maintenant la première diapositive avec le bouton Suivant, et les autres avec tous les boutons.
De la même manière vous pouvez faire le masque de la dernière diapositive.

Par programmation

L’ajout de boutons d’action peut également être fait grâce à du code VBA, nous allons donc créer nos boutons par programmation et les positionner.
Dans un module, on positionne en entête la déclaration des variables :
VBA
‘ ===== variables du module =====
Dim sld As Slide Dim i As Integer Dim shp As Shape
Dim intTopBtn As Integer ‘ détermine la position des boutons par rapport à la hauteur Dim intHeightBtn As Integer ‘ détermine la hauteur de nos boutons
Dim intWidthBtn As Integer ‘ détermine la largeur de nos boutons
Puis toujours dans ce module on positionne les routines suivantes :
VBA
Public Sub BtnPrecedent()
‘ ======================================================================================
‘ Procedure : Module :mod_BoutonAction // Procédure : BtnPrecedent
‘ DateTime : 07/03/2008 05:06
‘ Auteur : Starec – Philippe JOCHMANS – http://starec.developpez.com
‘ Description : Cette procédure crée le bouton précédent
‘======================================================================================= ‘ ===== variables =====
Dim intLeft As Integer ‘ position du bouton par rapport au bord gauche intLeft = (ActivePresentation.PageSetup.SlideWidth / 2) – (intWidthBtn * 1.5)
‘ ajout du bouton et positionnement
Set shp = sld.Shapes.AddShape(msoShapeActionButtonBackorPrevious, intLeft, intTopBtn, intWidthBtn, intHeightBtn)
‘ ation du bouton, et mise en place de la couleur With shp
.ActionSettings(ppMouseClick).Action = ppActionPreviousSlide
.Fill.ForeColor.RGB = RGB(200, 180, 250)
.Name = « Precedent »
End With
End Sub
Public Sub BtnAccueil()
‘ ======================================================================================
‘ Procedure : Module :mod_BoutonAction // Procédure : BtnAccueil
‘ DateTime : 07/03/2008 05:06
‘ Auteur : Starec – Philippe JOCHMANS – http://starec.developpez.com
‘ Description : Cette procédure crée le bouton précédent
‘======================================================================================= ‘ ===== variables =====
Dim intLeft As Integer ‘ position du bouton par rapport au bord gauche intLeft = (ActivePresentation.PageSetup.SlideWidth / 2) – (intWidthBtn / 2)
‘ ajout du bouton et positionnement
Set shp = sld.Shapes.AddShape(msoShapeActionButtonHome, intLeft, intTopBtn, intWidthBtn, intHeightBtn)
‘ action du bouton, et mise en place de la couleur With shp
.ActionSettings(ppMouseClick).Action = ppActionFirstSlide
.Fill.ForeColor.RGB = RGB(200, 180, 250)
.Name = « Accueil »
End With
End Sub
Public Sub BtnSuivant()
‘ ======================================================================================
‘ Procedure : Module :mod_BoutonAction // Procédure : BtnSuivant
‘ DateTime : 07/03/2008 05:06
‘ Auteur : Starec – Philippe JOCHMANS – http://starec.developpez.com
‘ Description : Cette procédure crée le bouton précédent
‘======================================================================================= ‘ ===== variables =====
Dim intLeft As Integer ‘ position du bouton par rapport au bord gauche intLeft = (ActivePresentation.PageSetup.SlideWidth / 2) + (intWidthBtn / 2)
‘ ajout du bouton et positionnement
Set shp = sld.Shapes.AddShape(msoShapeActionButtonForwardorNext, intLeft, intTopBtn, intWidthBtn, intHeightBtn)
‘ action du bouton, et mise en place de la couleur With shp
.ActionSettings(ppMouseClick).Action = ppActionNextSlide
VBA
.Fill.ForeColor.RGB = RGB(200, 180, 250)
.Name = « Suivant »
End With
End Sub
Ces trois procédures ont la même structure :
• on crée un bouton avec la méthode AddShapes, on détermine le type de bouton d’action, on le positionne ;
• ensuite on détermine l’action du bouton, sa couleur, et son nom.
Pour lancer la création de ceux-ci dans l’ensemble du diaporama on ajoute cette procédure :
VBA
Public Sub AjoutBoutonAction()
‘ ======================================================================================
‘ Procedure : Module :mod_BoutonAction // Procédure : AjoutBoutonAction
‘ DateTime : 05/03/2008 05:45 http://starec.developpez.com
‘ Auteur : Starec – Philippe JOCHMANS –
‘ Description : Cette procédure va permettre d’ajouter des boutons d’action à notre
‘ diaporama
‘=======================================================================================
‘ ===== affectation =====
‘ on récupère le nombre de slides (diapositives) i = ActivePresentation.Slides.Count
‘ pour positionner le haut de nos boutons
intTopBtn = ActivePresentation.PageSetup.SlideHeight – 100
‘ dimensions des boutons intHeightBtn = 50 intWidthBtn = 50
For Each sld In ActivePresentation.Slides
Select Case sld.SlideIndex
Case 1
‘ on est sur la première diapositive Call BtnSuivant
Case i
‘ on est sur la dernière diapositive Call BtnPrecedent
Call BtnAccueil
Case Else
‘ on est sur les autres diapositives Call BtnPrecedent
Call BtnAccueil
Call BtnSuivant
End Select
Next sld
End Sub
Le principe est simple, on parcourt la liste des slides, et selon le cas on ajoute les boutons adéquats.
Positionnez-vous sur cette procédure et appuyez sur la touche F5, vos diapositives possèdent dorénavant des boutons de navigation.
Si vous devez ajouter une diapositive à votre diaporama, il va donc falloir supprimer tous les boutons pour les recréer par la suite.

I – INTRODUCTION
II – NAVIGATION AUTOMATIQUE
II-A – Paramétrage manuel
II-B – Paramétrage par le code
III – LES BOUTONS D’ACTION
III-A – Détail des boutons d’action
III-B – Affecter les boutons d’action à toutes les diapositives
III-B-1 – Manuellement
III-B-2 – Par programmation
III-C – Formatage des boutons d’action
IV – LES IMAGES ET LES FORMES
IV-A – Manuellement
IV-A-1 – Création des formes
IV-A-2 – Les actions sur les formes
IV-B – Par programmation
IV-C – Cas particulier des images
V – LES LIENS HYPERTEXTES
VI – CONCLUSION