PowerPoint VBA教程:DimColor属性

返回或设置一个ColorFormat对象,该对象代表指定形状创建后的颜色。只读。

说明

如果没有达到预期的效果,请检查其他的创建设置。必须将 AnimationSettings对象的TextLevelEffect属性设为非 ppAnimateLevelNone 的值,AfterEffect属性设为 ppAfterEffectDim,且Animate属性设为 True,才能看到 DimColor属性的效果。另外,如果指定形状是幻灯片中唯一的或最后一个,则该形状无法变暗。要改变幻灯片中形状的创建顺序,可使用AnimationOrder属性。

VBA示例

本示例在当前演示文稿中添加一张幻灯片。该幻灯片包含一个标题和一个三项目的列表。本示例设置标题和列表在创建后变暗,并设置它们变暗的颜色。


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

上页:PowerPoint VBA教程:Dim属性 下页:PowerPoint VBA教程:Direction属性

PowerPoint VBA教程:DimColor属性

PowerPoint VBA教程:Direction属性 PowerPoint VBA教程:DisplayAlerts属性
PowerPoint VBA教程:DisplayAutoCorrectOptions属性 PowerPoint VBA教程:DisplayAutoLayoutOptions属性
PowerPoint VBA教程:DisplayComments属性 PowerPoint VBA教程:DisplayGridLines属性
PowerPoint VBA教程:DisplayMasterShapes属性 PowerPoint VBA教程:DisplayName属性
PowerPoint VBA教程:DisplayOnTitleSlide属性 PowerPoint VBA教程:DisplayPasteOptions属性
PowerPoint VBA教程:DisplaySlideMiniature属性 PowerPoint VBA教程:Drop属性
PowerPoint VBA教程:DropType属性 PowerPoint VBA教程:Duration属性
PowerPoint VBA教程:EditingType属性 PowerPoint VBA教程:EffectInformation属性
PowerPoint VBA教程:EffectParameters属性 PowerPoint VBA教程:EffectType属性
PowerPoint VBA教程:EmailSubject属性 PowerPoint VBA教程:Embeddable属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号