Fusionner deux images en une

Fermé
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024 - 19 oct. 2016 à 09:50
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024 - 19 oct. 2016 à 09:59
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,



A voir également:

1 réponse

Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024
19 oct. 2016 à 09:59
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