View Single Post
  #2  
Old 29-01-2004, 18:18
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,782
Blog Entries: 11
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Try This

Try This:

Code:
Sub MoveNodes()

Dim n As Node
Dim x As Double, y As Double

For Each n In ActiveShape.Curve.Nodes

n.GetPosition x, y
n.SetPosition x + 0.1, y + 0.1

Next n

End Sub
Reply With Quote