PowerPoint VBA教程:From属性

应用于 ColorEffect对象的 From属性。

设置或返回 ColorFormat对象,该对象代表动画动作颜色的初始 RGB 值。

expression.From

expression  必选。该表达式返回一个ColorEffect对象。

说明

将此属性与To属性联合使用以便在一种颜色和另一种颜色之间切换。

应用于 RotationEffect对象的 From属性。

设置或返回 Single 类型值,该值代表相对于屏幕(例如,90 度表示完全水平)指定的初始角度。可读写。

expression.From

expression  必选。该表达式返回一个RotationEffect对象。

说明

将此属性与To属性联合使用以从一个旋转角度切换到另一个旋转角度。

默认值为 Empty,此情况下使用对象的当前位置。

应用于 PropertyEffect对象的 From属性。

设置或返回 Variant 类型值,该值代表对象属性的初始值。可读写。

expression.From

expression  必选。该表达式返回一个PropertyEffect对象。

说明

From属性类似于Points属性,但对于简单任务,使用 From属性更方便。

默认值为 Empty,此情况下使用对象的当前位置。

说明

请勿将此属性与ScaleEffectMotionEffect对象的FromXFromY属性相混淆,后者仅用于缩放或移动效果。

VBA示例

应用于 ColorEffect对象。

以下示例添加颜色效果并且立即更改其颜色。


Sub AddAndChangeColorEffect()
    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColorEffect As AnimationBehavior
    Dim clrEffect As ColorEffect
    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effBlinds = t.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColorEffect = tlnTimming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeColor)
    Set clrEffect = animColorEffect.ColorEffect
    'Sets the animation effect starting and ending colors
    clrEffect.From.RGB = RGB(Red:=255, Green:=255, Blue:=0)
    clrEffect.To.RGB = RGB(Red:=0, Green:=255, Blue:=255)
End Sub

应用于 RotationEffect对象。

以下示例添加一个旋转效果并立即更改其旋转角度。


Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect
    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes_
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set tlnTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animRotation.RotationEffect
    'Sets the rotation effect starting and ending positions
    rtnEffect.From = 90
    rtnEffect.To = 270
End Sub

上页:PowerPoint VBA教程:FrameSlides属性 下页:PowerPoint VBA教程:FromX属性

PowerPoint VBA教程:From属性

PowerPoint VBA教程:FromX属性 PowerPoint VBA教程:FromY属性
PowerPoint VBA教程:FullName属性 PowerPoint VBA教程:Gap属性
PowerPoint VBA教程:GradientColorType属性 PowerPoint VBA教程:GradientDegree属性
PowerPoint VBA教程:GradientStyle属性 PowerPoint VBA教程:GradientVariant属性
PowerPoint VBA教程:GridDistance属性 PowerPoint VBA教程:GroupItems属性
PowerPoint VBA教程:HandoutMaster属性 PowerPoint VBA教程:HandoutOrder属性
PowerPoint VBA教程:HangingPunctuation属性 PowerPoint VBA教程:HasChildShapeRange属性
PowerPoint VBA教程:HasDiagram属性 PowerPoint VBA教程:HasDiagramNode属性
PowerPoint VBA教程:HasRevisionInfo属性 PowerPoint VBA教程:HasTable属性
PowerPoint VBA教程:HasText属性 PowerPoint VBA教程:HasTextFrame属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号