Bonjour,
je n'arrive pas à insérer une image dans une shape à partir d'un objet image d'excel 2003. (Ma macro est sous excel et je génère un powerpoint)
Je n'arrive qu'à insérer une image à partir d'un chemin, si quelqu'un a une idée voici un bout de mon code :
Je n'ai pas de message d'erreur mais "monshape" reste vide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Set monshape = pptRefs.Slides(pptRefs.Slides.Count).Shapes.AddShape(msoShapeRectangle, 660, 310 + 15 * i, 20, 10) 'monshape.Fill.UserPicture ActiveWorkbook.Path & "\images\jauge-" & jaugesQuality(i - 1) & ".gif" 'marche bien mais pas ce que je veux 'monshape = Worksheets("Data").Shapes("Image 1") '1 tentative ratée Worksheets("Data").Shapes("Image 1").Select Worksheets("Data").Shapes("Image 1").CopyPicture monshape.Paste '2 tentatives ratées
Merci !
Partager