Объект ScaleEffect (PowerPoint)

Представляет эффект масштабирования для объекта AnimationBehavior .

Пример

Используйте свойство ScaleEffectобъекта AnimationBehavior , чтобы вернуть объект ScaleEffect . В следующем примере описывается эффект масштабирования для заданного поведения анимации.

ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).ScaleEffect

Используйте свойства ByX, ByY, FromX, FromY, ToX и ToYобъекта ScaleEffect для управления масштабом объекта. В этом примере первая фигура на первом слайде масштабируется с нуля, пока не достигнет 100 процентов от исходного размера. В этом примере предполагается, что на первом слайде есть фигура.

Sub ChangeScale()

    Dim shpFirst As Shape
    Dim effNew As Effect
    Dim aniScale As AnimationBehavior

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom)

    Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale)
    With aniScale.ScaleEffect
        'Starting size
        .FromX = 0
        .FromY = 0

        'Size after scale effect
        .ToX = 100
        .ToY = 100
    End With

End Sub

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.