Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Задает или возвращает объект Single , представляющий конечную ширину объекта ScaleEffect , указанную в процентах от ширины экрана. Для чтения и записи.
Синтаксис
выражение. ToX
выражение Переменная, представляющая объект ScaleEffect .
Возвращаемое значение
Одинарное с плавающей точкой
Замечания
Значение по умолчанию для этого свойства — Empty, в этом случае используется текущее положение объекта.
Используйте это свойство вместе со свойством FromX для изменения размера или перехода из одной позиции в другую.
Не путайте это свойство со свойством To объектов ColorEffect, RotationEffect или PropertyEffect , которые используются для задания или изменения цветов, поворотов или других свойств анимации соответственно.
Пример
В следующем примере добавляется путь анимации и задаются начальные и конечные горизонтальные и вертикальные позиции.
Sub AddMotionPath()
Dim effCustom As Effect
Dim animMotion As AnimationBehavior
Dim shpRectangle As Shape
'Adds shape and sets effect and animation properties
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom)
Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)
'Sets starting and ending horizontal and vertical positions
With animMotion.MotionEffect
.FromX = 0
.FromY = 0
.ToX = 50
.ToY = 50
End With
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.