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
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.
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:
- Quitter mode diaporama sur power point avant dernier slide
- Comment inserer une video dans un power point - Guide
- Mode sécurisé samsung - Guide
- Mode d'emploi - Guide
- God mode - Guide
- Forcer à quitter - Guide
1 réponse
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
19 mai 2016 à 15:24
19 mai 2016 à 15:24
Bonjour
Essayez ceci
cdlt
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