Effect オブジェクト (PowerPoint)
スライド アニメーションに関するタイミング情報を表します。
例
AddEffect メソッドを使用して効果を追加します。 次の使用例は、作業中のプレゼンテーションのスライド 1 に図形を追加し、図形に効果と動作を追加します。
Sub NewShapeAndEffect()
Dim shpStar As Shape
Dim sldOne As Slide
Dim effNew As Effect
Set sldOne = ActivePresentation.Slides(1)
Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=150, Top:=72, Width:=400, Height:=400)
Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _
EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)
With effNew
With .Behaviors.Add(msoAnimTypeScale).ScaleEffect
.FromX = 75
.FromY = 75
.ToX = 0
.ToY = 0
End With
.Timing.AutoReverse = msoTrue
End With
End Sub
既存の Effect オブジェクトを参照するには、MainSequence(index) メソッドを使用します。index は Sequence コレクション内の Effect オブジェクトの番号です。 次の使用例は、最初のシーケンスの効果を変更し、その効果に動作を指定します。
Sub ChangeEffect()
With ActivePresentation.Slides(1).TimeLine _
.MainSequence(1)
.EffectType = msoAnimEffectSpin
With .Behaviors(1).RotationEffect
.From = 100
.To = 360
.By = 5
End With
End With
End Sub
メソッド
| 名前 |
|---|
| Delete |
| MoveAfter |
| MoveBefore |
| MoveTo |
プロパティ
| 名前 |
|---|
| Application |
| Behaviors |
| DisplayName |
| EffectInformation |
| EffectParameters |
| EffectType |
| Exit |
| Index |
| Paragraph |
| Parent |
| Shape |
| TextRangeLength |
| TextRangeStart |
| Timing |
関連項目
PowerPoint Object Model Reference
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。