Macro sommaire présentation PPT
h
Bonjour,
J'ai besoin d'urgence svp d'une aide. J'ai besoin de faire une macro pour avoir un sommaire automatique sous une présentation power point. Alors j'ai trouvé une macro qui fonctionne super bien mais j'ai besoin de la modifier pour qu'elle me fasse le sommaire après la slide 56, et qu'elle ne prenne que les slides où j'ai un style de titre défini sinon passe a la diapo suivante. Exemple en diapo 56 j'ai France mais en diapo 57 J'ai France (1) en diapo 58 France (2) etc et donc je veux qu'elle passe directement à la slide où elle aura le deuxième pays Espagne en diapo 59.
Merci d'avance pour votre aide.
Ci-dessous la macro qui m'a aidée jusqu'à présent:
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 = 2 To Pres.Slides.Count
'récupère le texte du titre de la diapo d'index NSI
t = NSI & " " & 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
Merci d'avance.
Cordialement,
Hajar