Relative 属性

该参数为 MsoTrue 时，设置相对于形状位置的移动位置。此属性只能与移动路径联合使用。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue 不应用于此属性。

msoFalse 默认值。该动作路径为绝对路径。

msoTriStateMixed 不应用于此属性。

msoTriStateToggle 不应用于此属性。

msoTrue 该动作路径为相对路径。

expression.Relative

expression 必选。该表达式返回“应用于”列表中的对象之一。

示例

以下示例添加一个形状并对该形状添加一个动画移动路径，然后报告该移动路径的相对性。

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