Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Задает или возвращает объект ColorFormat , представляющий начальное значение цвета RGB для поведения анимации.
Синтаксис
выражение. From
выражение Переменная, представляющая объект ColorEffect .
Замечания
Используйте это свойство в сочетании со свойством To для перехода от одного цвета к другому.
Не путайте это свойство со свойствами FromX или FromY объектов ScaleEffect и MotionEffect , которые используются только для масштабирования или эффектов движения.
Пример
В следующем примере добавляется эффект цвета и сразу же изменяется его цвет.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.