Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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)
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.