PowerPoint) (效果物件
代表投影片動畫的時間資訊。
範例
使用 AddEffect 方法來新增效果。 本範例會新增圖案到使用中簡報第一張投影片並新增圖案的效果與行為。
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
方法
| 名稱 |
|---|
| 刪除 |
| MoveAfter |
| MoveBefore |
| MoveTo |
屬性
| 名稱 |
|---|
| Application |
| 行為 |
| DisplayName |
| EffectInformation |
| EffectParameters |
| EffectType |
| Exit |
| 索引 |
| 段落 |
| Parent |
| Shape |
| TextRangeLength |
| TextRangeStart |
| 付款時間 |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。