Microsoft PowerPoint
Macro d'affichage d'un sommaire PowerPoint
Un cours complet pour maîtriser Macro d'affichage d'un sommaire PowerPoint.
0 chapitres
0 QCM
Accès gratuit
Dans cet article
Gestion des diapositives
Sommaire du cours
Modifier la taille de vos diapositives
Comment Réussir une Présentation PowerPoint
Afficher les commentaires d'une présentation PowerPoint
Créer des présentations PowerPoint à partir d’autres fichiers
Créer des présentations à partir de modèles
Enregistrer des présentations PowerPoint
QCM : Créer et enregistrer des présentations
Créer un modèle PowerPoint
Comment organisez-vous une conférence réussie
PowerPoint: Animer un graphique SmartArt
PowerPoint: Convertir du texte ou un objet WordArt en graphique SmartArt
PowerPoint: Appliquer un style à un graphique SmartArt
Le masque de diapositives ou " the slide master"
TP Gérer des diapositives
Les différents types de diapositives
Objectifs
- Etre capable d'afficher un sommaire d'une présentation PowerPoint avec un macro
Description
- Pour automatiser un sommaire PowerPoint, il faut passer par une macro. il faut copier le code ci-dessous dans un module que l'on créé et ensuite de l'exécuter.
- Pour voir voir comment l'insérer consultez le tutoriel: Insérer un sommaire dans PowerPoint avec une macro
Code
Sub TablesMatière() On Error Resume Next Dim MonCustomLayout As PowerPoint.CustomLayout Dim SI As Slide, tm As Slide, _ z As TextRange, NSI As Single Dim t As String Dim Pres As Presentation Set Pres = PowerPoint.ActivePresentation Set MonCustomLayout = Pres.SlideMaster.CustomLayouts.Item _ (PowerPoint.PpSlideLayout.ppLayoutText) Set SI = Pres.Slides.AddSlide(2, MonCustomLayout) SI.Shapes.Title.TextFrame.TextRange.Text = "Sommaire" Set z = SI.Shapes(2).TextFrame.TextRange 'Set NSI = Pres.Slides(2).SlideIndex For NSI = 3 To Pres.Slides.Count 'récupère le texte du titre de la diapo d'index NSI 'Diap ' & NSI & ' ' & t = Pres.Slides(NSI).Shapes(1).TextFrame.TextRange.Text 'Affiche à la fin du texte la valeur de 't et lui rajoute un retour à la ligne z.Paragraphs.InsertAfter (t & Chr(13)) 'z.Text = "essai pour voir" & Chr(13) 'z.Paragraphs.InsertAfter ("réussi" & Chr(13)) 'Je rajoute un lien qui pointe sur 'le slide correspondant 'z.Paragraphs(z.Paragraphs.Count) _ .ActionSettings(ppMouseClick) .Hyperlink.SubAddress = sli.SlideID & ",," Next NSI End Sub