[][VB/Powerpoint] : nombre de diapo entre autre [A publier] [Résolu]

[stan28]

Salut!!
Voila je voudrais savoir s'il existe des fonctions en vb permettant de gerer les diapositives d'un document powerpoint, tel le nombre de diapo, sauvegarder tel ou tel diapo en jpeg etc

[bidou]

oui
nb de diapo

Code :

Presentation("MaPres").Slides.Count

sauver une diapo en jpeg

Code :

Presentation("MaPres").Slides(1).Export "c:\madiapo", "JPG"

etc...

[stan28]

oki et merci

[stan28]

ca marche pas : est tu sur de la syntaxe, ou pe etr ke ca dépend de la version de powerpoint, moi g le 2000

[bidou]

je suis en 97

ca marche si la présentation est ouverte

[stan28]

je l'ouvre : voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Set pPoint = New PowerPoint.Application
            Set sPoint = pPoint.Presentations.Open(path_fonfPP)
            nbDiapo = Presentation(pPoint).Slides.Count
            If (nbDiapo > 1) Then
                erreur = MsgBox("Votre fichier powerpoint ne doit contenir que la diapo correspondant au fond souhaité", vbOKOnly, "Erreur!!!")
                Exit Sub
            Else
                If (nbDiapo < 1) Then
                    erreur = MsgBox("Votre fichier powerpoint doit contenir une diapo correspondant au fond souhaité", vbOKOnly, "Erreur!!!")
                    Exit Sub
                End If
            End If
            Presentation(path_fondPP).Slides(1).Export path_site +  "fond.jpg"

je suis pas sur du + pour le export, mais de toute facon il m'indik pas d'erreur la, il di k'il conné pas le mot Export

[bidou]

ca devrait marcher mieux comme cela
Fait attention qu'il ne manque pas un antislash dans path_site & "fond"

Code :

1
2
3
4
5
6
7
8
9
10
11
Set pPoint = New PowerPoint.Application 
Set sPoint = pPoint.Presentations.Open(path_fonfPP) 
nbDiapo = sPoint.Slides.Count 
If (nbDiapo > 1) Then 
    MsgBox "Votre fichier powerpoint ne doit contenir que la diapo correspondant au fond souhaité", vbOKOnly, "Erreur!!!"
    Exit Sub 
ElseIf (nbDiapo < 1) Then 
     MsgBox "Votre fichier powerpoint doit contenir une diapo correspondant au fond souhaité", vbOKOnly, "Erreur!!!"
     Exit Sub 
End If 
sPoint.Slides(1).Export path_site &  "fond", "JPG"

[stan28]

c bon ca marche, a part ke c relou car powerpoint souvre forcement, pas moyen de mettre visible = false sinon ca merde a l'execution, mais a part ce

[stan28]

Non en fait tjrs un petit pb : pa moyen de fermer powerpoint même avec un close, donc si kk'un a un idée

[bidou]

pPoint.Quit

[stan28]

je fé pPoint.quit, mais en fait c bizarre : ca ferme bien la presentation que g ouverte, mais pas powerPoint lui même qui reste ouvert sans document

[stan28]

bon et bien en fait c resolu grace a un alt f4, suivit d'un bouche pour faire une petite pause de 0.25sec, car sinon ca ferme aussi l'application :/

je donne le code, ca pourra tjrs servir a d'autres

Code :

1
2
3
4
5
6
7
8
SendKeys "%{F4}"
        pause = 0.25
        start = Timer
        Do While Timer < start + pause
            DoEvents
        Loop
        SendKeys "{NumLock}"
        GenerationSite.Hide