Bonjour !

Je débute en programmation VBA et je voudrais insérer une image au slide actif. J'arrive à l'insérer au 1er slide mais je bugue sur l'insertion au slide actif. Voici ce que j'ai actuellement :

Sub Inversion()

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.AddPicture "d:\Deutsch\Grammatik\inversionverbe.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
Left:=100, Top:=100, Width:=70, Height:=70

End Sub

Merci beaucoup de votre aide !