Recupere les valeurs de position d'une image

[joums]

Bonjour à tous,

Je souhaite recuperer la valeur d'une image c'est à dire ses coordonnées par rapport à une autre image

quel code faut il ?

Merci

 

[Cousinhub]

Re : Recupere les valeurs de position d'une image

Bonjour,

ceci, peut-être?

Dim Img1 As Shape, Img2 As Shape
Dim X As Single, Y As Single
Set Img1 = ActiveSheet.Shapes("Rectangle 1")
Set Img2 = ActiveSheet.Shapes("Rectangle 2")

X = Img2.Left - (Img1.Width + Img1.Left)
Y = Img2.Top - (Img1.Height + Img1.Top)

 

[joums]

Re : Recupere les valeurs de position d'une image

Merci pour cette réponse
je vais essayer de l'adapter à mon probleme qui est de calculer la valeur du déplacement de l'image 2
ex : image 1 = rectangle 1
image 2 = rectangle 2 dans image 1

valeur position rectangle 2 = X,Y (par rapport à rectangle 1)
Lorsqu'on déplace rectangle 2, ses nouvelles coordonnées sont X2,Y2
Donc le déplacement est IncrementLeft ou top etc... de valeur X3,Y3

je vous tiens au courant
merci