Quitter mode diaporama sur power point avant dernier slide

Fermé
novis-infor Messages postés 1 Date d'inscription jeudi 19 mai 2016 Statut Membre Dernière intervention 19 mai 2016 - 19 mai 2016 à 12:49
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 19 mai 2016 à 15:24
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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
19 mai 2016 à 15:24
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