返回或设置一个 ColorFormat 对象,该对象代表指定形状创建后的颜色。只读。
如果没有达到预期的效果,请检查其他的创建设置。必须将 AnimationSettings 对象的 TextLevelEffect 属性设为非 ppAnimateLevelNone 的值,AfterEffect 属性设为 ppAfterEffectDim,且 Animate 属性设为 True,才能看到 DimColor 属性的效果。另外,如果指定形状是幻灯片中唯一的或最后一个,则该形状无法变暗。要改变幻灯片中形状的创建顺序,可使用 AnimationOrder 属性。
本示例在当前演示文稿中添加一张幻灯片。该幻灯片包含一个标题和一个三项目的列表。本示例设置标题和列表在创建后变暗,并设置它们变暗的颜色。
With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
With .Item(1)
.TextFrame.TextRange.Text = "Sample title"
With .AnimationSettings
.TextLevelEffect = ppAnimateByAllLevels
.AfterEffect = ppAfterEffectDim
.DimColor.SchemeColor = ppShadow
.Animate = True
End With
End With
With .Item(2)
.TextFrame.TextRange.Text = "Item one" _
& Chr(13) & "Item two"
With .AnimationSettings
.TextLevelEffect = ppAnimateByFirstLevel
.AfterEffect = ppAfterEffectDim
.DimColor.RGB = RGB(100, 150, 130)
.Animate = True
End With
End With
End With