nat54
XLDnaute Barbatruc
Je ne retrouve plus le topic :huh:
Objectif : créer un sommaire automatique dans powerpoint
Objectif idéal : titre de la diapo + lien hypertexte pointant vers le slide en question
J'avais trouvé ce code sur le net :
MAIS il plante sur ça :
http://pix.nofrag.com/b/3/4/bf257c9ebbbc32608cef31c8e1910.html
et je n'arrive pas à résoudre le pb
des adeptes du VBA peuvent m'aider ??
Merci d'avance,
Objectif : créer un sommaire automatique dans powerpoint
Objectif idéal : titre de la diapo + lien hypertexte pointant vers le slide en question
J'avais trouvé ce code sur le net :
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
t = "Diap " & 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
http://pix.nofrag.com/b/3/4/bf257c9ebbbc32608cef31c8e1910.html
et je n'arrive pas à résoudre le pb
des adeptes du VBA peuvent m'aider ??
Merci d'avance,