to set the motion position relative to the position of the shape. This property is only used in conjunction with motion paths. Read/write.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Doesn't apply to this property. |
| msoFalse Default. The motion path is absolute. |
| msoTriStateMixed Doesn't apply to this property. |
| msoTriStateToggle Doesn't apply to this property. |
| msoTrue The motion path is relative. |
expression.Relative
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example adds a shape, adds an animated motion path to the shape, and reports on its motion path relativity.
Sub AddShapeSetAnimPath()
Dim effDiamond As Effect
Dim shpCube As Shape
Set shpCube = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeCube, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpCube, effectId:=msoAnimEffectPathDiamond)
effDiamond.Timing.Duration = 3
MsgBox "Is motion path relative or absolute: " & _
effDiamond.EffectParameters.Relative & vbCrLf & _
"0 = Relative, -1 = Absolute"
End Sub