lancement diaporama powerpoint
Bonjour,
J'essaie de faire un script en VBscript qui ouvre un fichier Powerpoint (.ppt) et lance le diaporama en boucle.
Voilà ce que ca donne pour l'instant
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim ppapp, ppPres
Set ppapp = CreateObject("PowerPoint.Application")
ppapp.Visible = True
Set ppPres = ppapp.Presentations.Open("C:\Documents and Settings\Utilisateur\Bureau\TEST.ppt")
With ppPres.SlideShowSettings
.LoopUntilStopped = msoTrue
.ShowType = ppShowTypeKiosk
.Run
End With |
Avec ce code le diaporama se lance bien mais s'arrete après la dernière diapo.
Pourtant dans les paramètres de mon diaporama, l'option est bien activée (grâce à .ShowType =TypeKiosk) mais ne semble pas appliquée
Si je fais le même paramètrage manuellement le bouclage fonctionne.
J'ai testé en passant par une macro
Code:
1
2
3
4
5
6
7
8
9
|
Dim ppPres As PowerPoint.Presentation
Set ppPres = PowerPoint.ActivePresentation
With ppPres.SlideShowSettings
.LoopUntilStopped = msoTrue
.ShowType = ppShowTypeKiosk
.Run
End With |
Si je lance la macro ca marche.
Est ce qu'il y a une commande supplémentaire a faire pour appliquer les modifications en passant par VBScript?
Environnement : Windows 2000 Professionnel / wscript 5.6.0.6626 / Office 2000
