Coller une image plutot que l'insérer avec un lien

Question

J'ai ce code : For Each el In ListBox1.List If el = "Vêtements de protection obligatoire" Then Set objPict = objFeuille.Pictures.Insert(ActiveWorkbook.Path + "\Pictogrammes\Pictodobligation\3.jpg") qui m'insère des images. Le problème c'est qu'il ne les colle pas, c'est à dire que si je supprime le répertoire, les images s'en vont. Avec excel 2007 ça marchait, j'ai l'impression que excel 2010 m'a changé quelque chose. Auriez vous une solution pour COLLER définitivement ces images dans mon fichier au lieu de faire un lien externe ? Merci d'avance ! Marc...

alobroj · Answer

J'ai le même problème que msrtn, je précise que si on enregistre la macro et qu'on fait la manip a la main, ca marche. Si on lance la macro enregistré ca ne marche pas. -&gt;msrtn : t'a trouvé une solution ? alobroj...

tulipe_4 · Answer

En attendant mieux ; je vous invite a voir le topic recent (cette semaine) TROMBINOSCOPE de Gouthier Bernard cordialement https://forum.excel-pratique.com/excel/trombinoscope-t25803.html...

Myta35 · Answer

Essaye ceci Sub image() Dim strImage As String Dim Sh As Shape Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 40, 80, 140, 50) strImage = "C:\abeille.jpg" Sh.Fill.UserPicture strImage End Sub Mytå...

alobroj · Answer

Merci Myta,

En fait je n'ai pas de fichier image, j'ai un graph je le copie en macro et je le past comme une image dans un autre fichier.

    Workbooks(Classeur_Start).Sheets(F_Name).ChartObjects(graphName).Activate
    ActiveChart.ChartArea.Copy
    Workbooks(Classeur_Out).Sheets(F_Name).Activate
    Range(sRange).Select
    ActiveSheet.PasteSpecial Format:="Image (GIF)", Link:=False, DisplayAsIcon:=False

Sous 2007 c'est ok sous 2010 ca ne marche plus.

Je vais quand même essayer de faire comme tu propose...

Je te tiendrais au courant

Merci