Sub Test() Dim sp As SubPath Dim t As Double, x As Double, y As Double For Each sp In ActiveShape.Curve.SubPaths For t = 0 To 0.9 Step 0.1 sp.GetPointPositionAt x, y, t, cdrRelativeSegmentOffset ActiveLayer.CreateEllipse2 x, y, 0.03 Next t Next spEnd Sub