[VBA-W]Inserer des diapos PPT dans word [Résolu]

[dev81]

Bonjour,
Peut-on insérer des diapos d'un fichier ppt dans word avec une macro VBA?
Si oui, comment?

Merci d'avance.

[ouskel'n'or]

Un peu de lecture... Par SilkyRoad

[dev81]

Ok ca ma bien fait avancer, par contre comment copier une diapo?
Merci

[dev81]

Une idée car ca ne marche pas avec l'enregistrement.

[ouskel'n'or]

Montre ton code... Sait-on jamais, en attendant Michel

[dadavyvy]

En adaptant la macro de Ouskel'n'or sur le graph Excel

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub insertPPTSlideInWord()
    Dim pptApp, pptDiapo
    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptDiapo = pptApp.Presentations.Open("c:\chemin\diaporama.ppt", ReadOnly:=msoCTrue, WithWindow:=msoFalse) '< le classeur
 
    pptDiapo.Slides(2).Copy '< le slide
    Selection.Paste
    DoEvents
    pptDiapo.Close
    pptApp.Quit
    Set pptDiapo = Nothing
    Set pptApp = Nothing
End Sub