[PPT-2003] VBA : insérer une image dans une shape à partir d'un objet image d'excel 2003

[Troal]

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 :

Code :

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

Je n'ai pas de message d'erreur mais "monshape" reste vide
Merci !

[Philippe JOCHMANS]

Bonjour

Je ne pense pas qu'il faille procéder de cette manière, déjà que l'on y arrive pas manuellement, du moins je n'ai pas réussi

Plusieurs hypothèses :

1 - Enregistrer l'image d'Excel sur le disque et la récupérer.
2 - Coller l'image tel quelle dans le diaporama, et donc reprendre la shape qui a la sélection, mais cela implique de travailler en mode présentation et non en mode diaporama (les select ne fonctionnent pas en mode diaporama).

Peux-tu détailler un peu le but de la manœuvre.

Philippe