GotoSlide navigation dans diapo

Fermé

Sophie Grml Messages postés 11 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 10 juillet 2014 - 3 juil. 2014 à 18:07
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 4 juil. 2014 à 14:27

Bonjour,

J'ai commencé à coder une macro pour que lorque l'utilisateur clique sur le command button qui sera situé dans toutes les slides de la diapo, la diapo retourne à la slide numéro 15 dont le titre est "Profit and loss" (header)

Le code suivant fonctionne mais lorsque je rajoute une slide, étant donné que le numéro 15 ne fait plus référence à la bonne slide, cela ne fonctionne plus

Auriez vous des idées, peut etre avec ActivePresentation et Index, pour lier au titre et non pas au numéro de slide ?

Merci !!

Private Sub CommandButton1_Click()

With SlideShowWindows(1).View

.GotoSlide 15

End With

End Sub

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
4 juil. 2014 à 14:27

Bonjour,

Peut-être en partant du dernier slide comme ceci:

Dim diapo As Integer
diapo = ActivePresentation.Slides.Count
Application.ActivePresentation.Slides(diapo - 3).Select'a adapter 3 à la position du 15 par rapport au dernier slide

Newsletters