Recupere les valeurs de position d'une image

joums · 30 Juillet 2009

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 · 30 Juillet 2009

Re : Recupere les valeurs de position d'une image

Bonjour,

ceci, peut-être?

Code:

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 · 30 Juillet 2009

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

Recupere les valeurs de position d'une image

joums

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

joums

XLDnaute Occasionnel

Discussions similaires