GotoSlide navigation dans diapo

Sophie Grml Messages postés 11 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 8437 Statut Contributeur 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