ColorEffect オブジェクト
Microsoft PowerPoint Visual Basic リファレンス |
ColorEffect オブジェクト
AnimationBehavior ColorEffect ColorFormat |
アニメーションの色効果を表します。
使い方
ColorEffect オブジェクトを取得するには、AnimationBehavior オブジェクトの ColorEffect プロパティを使用します。色効果は、次に示すように ColorEffect オブジェクトの From プロパティおよび To プロパティを使って変更できます。色効果は、最初は To プロパティを使って設定し、次に By プロパティを使って特定の色で変更できます。次の使用例は、作業中のプレゼンテーションのスライド 1 に図形を追加し、新しい図形の塗りつぶし色を変更するように色効果アニメーションの動作を設定します。
Sub ChangeColorEffect()
Dim sldFirst As Slide
Dim shpHeart As Shape
Dim effNew As Effect
Dim bhvEffect As AnimationBehavior
Set sldFirst = ActivePresentation.Slides(1)
Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=100, Top:=100, Width:=100, Height:=100)
Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
(Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
Trigger:=msoAnimTriggerAfterPrevious)
Set bhvEffect = effNew.Behaviors.Add(Type:=msoAnimTypeColor)
With bhvEffect.ColorEffect
.From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
End With
End Sub