Copier/Coller une image

Bonjour,

J'ai ouvert un topic il y a deux jours sur un sujet concernant des images (shape). Comme le sujet d'aujourd'hui diffère un peu je préfère ouvrir un autre topic.

J'aimerais pouvoir copier et coller une image et leur donner des propriétés left, top et pourquoi pas height si possible.

Voila mon code
Code:

1 2 3 4 5 6 7 8 9 10 Set plage = Sheets("Etiquette").Range("H3:I3") left = plage.left + ((plage.Width - Sheets("Liste article avec photo").Shapes(reference5).Width) / 2) top = plage.top + 5 Sheets("Liste article avec photo").Shapes.Range(Array(reference5)).Select Selection.Copy plage.Select ActiveSheet.Paste Selection.ShapeRange.IncrementLeft left Selection.ShapeRange.IncrementTop top
Ca ne marche pas, et je ne sais pas comment dire : tu colle l'image dans la plage et tu mets une marge de left et top.

Avez vous une méthode?

Merci d'avance

Cordialement

Vincent

Bonjour,
essaie comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dim left as long
dim top as long
 
left=200
top=10
 
Set plage = Sheets("Etiquette").Range("H3:I3")
 
    Sheets("Liste article avec photo").select
    ActiveSheet.Shapes.Range(Array(reference5)).Select
    Selection.Copy
    Sheets("Etiquette").Select
    plage.Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft left
    Selection.ShapeRange.IncrementTop top

Merci beaucoup