Discussion :

[guismoman60]

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

[gnain]

Bonjour,
essaie comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guismoman60]

Merci beaucoup