Quitter mode diaporama sur power point avant dernier slide

novis-infor Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je suis nouveau dans ce forum et je viens demander de l'aide sur un problème auquel j'ai cherché une solution sans succès.voici mon problème:j'ai une présentation power point comportant plus de 400 diapositive, alors que lors de ma présentation je veux que en mode diaporama, un certain nombre (environ 50 slides) seulement s'affiche de façon aléatoire.je cherche donc un macros qui pourrais me faire cela de façon automatique,sans que j’appuie sur la touche echap après le 50 ieme slide. merci pour vos contribution qui me seront d'une importance capitale.
A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour
Essayez ceci
Sub SortirAlaNièmeDiapo()
    Randomize
    For i = 1 To 50
        numSlide = Int((50 * Rnd) + 1)
        ActivePresentation.Slides(numSlide).Select
        tempo
        DoEvents
    Next
    Application.ActivePresentation.Close
End Sub

Sub tempo()
    For t = 1 To 10000000
    Next t
End Sub

cdlt
0