GotoSlide navigation dans diapo

Sophie Grml Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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


 

                
                

    
        

    
            
        0