Déplacé un objet ????

[Eric D]

Bonsoir à toutes et à tous,

J'en perd mon latin...Je cherche à déplacer ces objets dont le .top est a 612. j'aimerais le faire passer à 10:

Dim Shp As Shape
Set Shp = Sheets('Feuil1').Shapes.AddShape(msoShapeRectangle, 369, 612, 342, htr)
Shp.Name = 'Cible'

Set mydocument = ActiveSheet
With mydocument.Shapes.AddShape(msoShapeRectangle, 369, 612, 342, htr).Shadow
.ForeColor.RGB = RGB(0, 0, 128)
.OffsetX = 15
.OffsetY = -8
.Transparency = 0.9
.Visible = True
.Name = 'ombre'
End With

Pouvez vous m'aider svp.
Merci et bonne soirée.
Eric D

 

[Eric D]

Re,

C'est encore moi. Victoire j'ai enfin réussi.
Cependant J'ai une nouvelle question :

Ds le Rectangle que je crée, il y a une image. D'ou vient elle et comment fait on pour la changer?
Merci
Eric D