Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Задает или возвращает значение Single , представляющее начальную ширину или горизонтальное положение объекта ScaleEffect , указанное в процентах от ширины экрана. Для чтения и записи.
Синтаксис
выражение. FromX
Выражение Переменная, представляющая объект ScaleEffect .
Возвращаемое значение
Одинарное
Замечания
Значение по умолчанию для этого свойства — Empty, в этом случае используется текущее положение объекта.
Используйте это свойство в сочетании со свойством ToX для изменения размера или перехода из одной позиции в другую.
Не путайте это свойство со свойством From объектов 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 и обратная связь.