FilterEffect オブジェクト
Microsoft PowerPoint Visual Basic リファレンス |
FilterEffect オブジェクト
AnimationBehavior FilterEffect |
アニメーション動作に対するフィルタの効果を表します。
使い方
FilterEffect オブジェクトを取得するには、 AnimationBehavior オブジェクトの FilterEffect プロパティを使用します。FilterEffect オブジェクトの Reveal、SubType、 および Type プロパティを使用すると、フィルタの効果を変更できます。
使用例
次の使用例は、作業中のプレゼンテーションのスライド 1 に図形を追加し、アニメーション動作に対するフィルタの効果を設定します。
Sub ChangeFilterEffect()
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(msoAnimTypeFilter)
With bhvEffect.FilterEffect
.Type = msoAnimFilterEffectTypeWipe
.Subtype = msoAnimFilterEffectSubtypeUp
.Reveal = msoTrue
End With
End Sub