PowerPoint VBA教程:Relative属性

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

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。该动作路径为绝对路径。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 该动作路径为相对路径。

expression.Relative

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

VBA示例

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


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

上页:PowerPoint VBA教程:Registered属性 下页:PowerPoint VBA教程:RelativeSize属性

PowerPoint VBA教程:Relative属性

PowerPoint VBA教程:RelativeSize属性 PowerPoint VBA教程:RelyOnVML属性
PowerPoint VBA教程:RemovePersonalInformation属性 PowerPoint VBA教程:RepeatCount属性
PowerPoint VBA教程:RepeatDuration属性 PowerPoint VBA教程:ResizeGraphics属性
PowerPoint VBA教程:Restart属性 PowerPoint VBA教程:Reverse属性
PowerPoint VBA教程:RewindAtEnd属性 PowerPoint VBA教程:RewindMovie属性
PowerPoint VBA教程:RGB属性 PowerPoint VBA教程:Root属性
PowerPoint VBA教程:RotatedChars属性 PowerPoint VBA教程:Rotation属性
PowerPoint VBA教程:RotationEffect属性 PowerPoint VBA教程:RotationX属性
PowerPoint VBA教程:RotationY属性 PowerPoint VBA教程:Rows属性
PowerPoint VBA教程:Ruler属性 PowerPoint VBA教程:Run属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号