PowerPoint) (AnimationSettings 物件
代表在投影片放映期間套用至指定圖案之動畫的特殊效果。
使用AnimationSettings若要傳回 AnimationSettings 物件的 Shape 物件的屬性。 下列範例會新增含有標題和三項目清單，以將使用中簡報的投影片並將動畫的第一層的段落，以在自左飛入在動畫顯示時，指定的色彩變暗之後動畫，並以相反順序動畫及其項目清單。
Set sObjs = ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
sObjs.Title.TextFrame.TextRange.Text = "Top Three Reasons"
With sObjs.Placeholders(2)
.TextFrame.TextRange.Text = _
"Reason 1" & VBNewLine & "Reason 2" & VBNewLine & "Reason 3"
With .AnimationSettings
.TextLevelEffect = ppAnimateByFirstLevel
.EntryEffect = ppEffectFlyFromLeft
.AfterEffect = ppAfterEffectDim
.DimColor.RGB = RGB(100, 120, 100)
.AnimateTextInReverse = True
End With
End With
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。