View Single Post
  #2  
Old 07-10-2015, 02:07
shark shark is offline
Senior Member
 
Join Date: Aug 2010
Location: Russia, Belgorod
Posts: 146
Default Try it

Here simple code to add nodes to each segments
Code:
Private Sub AddNodes()
Dim s As Shape, nseg&
    Set s = ActiveShape: If s Is Nothing Then Exit Sub
    For nseg = s.Curve.Segments.Count To 1 Step -1
        s.Curve.Segments(nseg).AddNodeAt  'without parameters adds node to midpoint
    Next
End Sub
Or you can do it by one codeline:
s.Curve.Segments.All.AddNode

Last edited by shark; 07-10-2015 at 02:13.
Reply With Quote