Dim 属性

返回 ColorFormat 对象，该对象代表动画结束后要变暗的颜色。

expression 必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例显示动画结束后要变暗的颜色。

Sub QueryDimColor()
   Dim effDim As Effect
   Set effDim = ActivePresentation.Slides(1).TimeLine.MainSequence(1)
   MsgBox effDim.EffectInformation.Dim
End Sub