Discussion :

[mistera]

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

[omen999]

bonjour,
en liaison tardive, les enumérations d'un objet com ne sont pas identifiées
ou en langage compréhensible, vbscript ne peut pas reconnaitre la valeur prise par msoTrue ou ppShowTypeKiosk
il faut donc rechercher avec un explorateur d'objets la valeur n et n' de ces constantes et rajouter les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
const msoTrue = n
const ppShowTypeKiosk = n'

[mistera]

Re

Merci ça marche parfaitement