![]() |
#1
|
|||
|
|||
![]() ![]() |
#2
|
||||
|
||||
![]()
The control curve should be the second shape in the shaperange. So here is an example that moves the first node of the control curve.
Code:
Sub TestingArtisticMedia() Dim srSelection As ShapeRange Dim sControlCurve As Shape If ActiveShape.Type = cdrArtisticMediaGroupShape Then Set srSelection = ActiveSelectionRange Set sControlCurve = srSelection(2) sControlCurve.Curve.Nodes.First.Move 1, 1 End If End Sub -Shelby |
#3
|
|||
|
|||
![]()
Thank Shelbym .
![]() I know that can receive the result with MoveToLayer or AddToPowerClip ..... But can not be obtained in stratum's form ? Last edited by 3dvr; 16-07-2009 at 05:23. |
![]() |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | |
|
|