Bewerken

Delen via


AnimationSettings.DimColor property (PowerPoint)

Returns or sets a ColorFormat object that represents the color of the specified shape after it is been built. Read-only.

Syntax

expression. DimColor

expression A variable that represents a AnimationSettings object.

Return value

ColorFormat

Remarks

If you don't get the effect you expect, check your other build settings. You won't see the effect of the DimColor property unless the TextLevelEffect property of the AnimationSettings object is set to something other than ppAnimateLevelNone, the AfterEffect property is set to ppAfterEffectDim, and the Animate property is set to True. In addition, if the specified shape is the only item or the last item to be built on the slide, the shape won't be dimmed. To change the build order of the shapes on a slide, use the AnimationOrder property.

Example

This example adds a slide that contains both a title and a three-item list to the active presentation, sets the title and list to be dimmed after being built, and sets the color that each of them will be dimmed to.

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

See also

AnimationSettings Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.