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 : Sélectionner tout - Visualiser dans une fenêtre à part
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