View Single Post
Old 11-08-2014, 14:18
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,790
Blog Entries: 13
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 Curve


Change your below fails code to:
    ' above draw a shape but below fails
    For Each nd In sShape.Curve.Nodes
        nd.Type = cdrSmoothNode
    Next nd
See if that gives you the result you would like.

There are other ways of doing this also, you could draw an arc between three points, it would give you a smoother look with fewer nodes, if that is what you are looking for.

Reply With Quote