Insérer image dans ppt avec macro

[solenn29]

Bonjour,

Je voudrais insérer une image grâce à une macro dans un slide powerpoint.
Quelle méthode dois je utiliser?

D'avance merci

[solenn29]

J'ai résolu mon problème en utilisant le code suivant :

Set objPPT = CreateObject("PowerPoint.Application")

Set objPresentation = objPPT.Presentations.Add

Set objSlide = objPresentation.Slides.Add (1, ppLayoutText)
Dim oSlide, oPicture

Set oSlide = objPresentation.Slides(1)
Set oPicture = oSlide.Shapes.AddPicture("c:\test.bmp", True, True, 100, 100, 250, 250)