Object Model Reference : Classes : E : Effect : Properties : Effect.ControlPath
|
|
| Object Model Reference : Classes : E : Effect : Properties : Effect.ControlPath |
Property ControlPath As EffectControlPath
Member of Effect
The ControlPath property returns an EffectControlPath object.
The ControlPath property returns a read-only value.
The following VBA example checks whether there are any blends or text attached to the currently selected path. All blends are changed so that the object’s transition in color from yellow to blue, and all text objects become filled with red.
Sub Test() |
Dim e1 As Effect, e2 As Effect |
For Each e1 In ActiveShape.Effects |
If e1.Type = cdrControlPath Then |
MsgBox "There are " & e1.ControlPath.Effects.Count & " effect objects on this path" |
For Each e2 In e1.ControlPath.Effects |
Select Case e2.Type |
Case cdrTextOnPath |
e2.TextOnPath.Text.Fill.UniformColor.RGBAssign 255, 0, 0 |
Case cdrBlend |
e2.Blend.StartShape.Fill.UniformColor.RGBAssign 255, 255, 0 |
e2.Blend.EndShape.Fill.UniformColor.RGBAssign 0, 0, 255 |
End Select |
Next e2 |
Exit For |
End If |
Next e1 |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.