Moving Visio Object by VBA Code

[Gary]

I am able to move visio objects by VBA Code. The move command is a relative
position. What I mean, the x, y position to move object x to position x1,y1
is different than the move object y to the same position.

Is there a command I could use that will move any two objects to a given
position??

Thanks,

Gary

 

[John]

Hello Gary,

Use the PinX / Pin Y properties:

shp.Cells("PinX").Formula = "22mm"
shp.Cells("PinY").Formula = "32mm"

Best regards

John