quitter mode diaporama sur power point avant dernier slide

Question

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.

Frenchie83 · Answer

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

Quitter mode diaporama sur power point avant dernier slide

1 réponse

Discussions similaires

Newsletters