Fusionner deux images en une

Sormick Messages postés 146 Date d'inscription   Statut Membre Dernière intervention   -  
Sormick Messages postés 146 Date d'inscription   Statut Membre Dernière intervention   -
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

Sormick Messages postés 146 Date d'inscription   Statut Membre Dernière intervention  
 
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