Object Model Reference : Classes : S : Segment : Properties : Segment.StartingControlPointY |
Property StartingControlPointY As Double
Member of Segment
The StartingControlPointY property returns or specifies the y-coordinate of the starting control-point of a curve segment. This property is measured in document units.
The following VBA example marks, with a small circle, the position of each control point of the selected curve.
Sub Test() |
Dim s As Shape |
Dim seg As Segment |
Set s = ActiveShape |
If s.Type = cdrCurveShape Then |
For Each seg In s.Curve.Segments |
If seg.Type = cdrCurveSegment Then |
ActiveLayer.CreateEllipse2 seg.StartingControlPointX, seg.StartingControlPointY, 0.02 |
ActiveLayer.CreateEllipse2 seg.EndingControlPointX, seg.EndingControlPointY, 0.02 |
End If |
Next seg |
End If |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.