Relative Property

previous page next page

Relative Property

MsoTrue 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