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 VbScript : Sélectionner tout - Visualiser dans une fenêtre à part
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 VBA : Sélectionner tout - Visualiser dans une fenêtre à part
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