Forum Discussion
meenakshiyadav1
10 years agoContributor
Hi Tanya,
Thanks for replying on this post. I have tried Int function and converted all four postions parameter in to an intiger. but it still the same.
I have used:
similarly I did for Ypos,dX and dY.
But I am still getting the same error.
Thanks for replying on this post. I have tried Int function and converted all four postions parameter in to an intiger. but it still the same.
I have used:
XPos=Int(XPos)
similarly I did for Ypos,dX and dY.
But I am still getting the same error.
- taisapi8 years agoOccasional Contributor
A bit late for meenakshiyadav1 , but for anyone else, like me, who found this script to be useful -
The problem is that the variable XPos, which is used later in the drag operation, should only reflect the centrepoint of the source object, and not include the value of the screen position.
So, instead of XPos = GrpLink.ScreenLeft+GrpLink.Width/2
Try XPos = GrpLink.Width/2
(Similarly for YPos)