Fusionner deux images en une

Sormick Messages postés 163 Statut Membre -  
Sormick Messages postés 163 Statut Membre -
Bonjour,

J'ai deux images dans une feuille
la, deuxième image est par dessus la première.
est t'il possible à partir de ces deux images d'en créer une seule ou de les fusionner en une seule.
peut être avec une macro de ce type??
Selection.CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture

CDT,

1 réponse

  1. Sormick Messages postés 163 Statut Membre
     
    Je crois que j'ai trouvé mais je ne suis pas sûr:
    Voici mon code:
    Sheets("feuil1").Shapes.SelectAll
        Selection.Group
      Selection.CopyPicture _
        Appearance:=xlScreen, _
        Format:=xlPicture
      Sheets("jpg").Select
      Range("a1").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
    
    0