Propriedade AnimationSettings.DimColor (PowerPoint)

Retorna ou define um objeto ColorFormat que representa a cor da forma especificada depois desta ter sido composta. Somente leitura.

Sintaxe

expression. DimColor

Expressão Uma variável que representa um objeto AnimationSettings .

Valor de retorno

ColorFormat

Comentários

Se você não obtiver o efeito esperado, verifique suas outras definições de compilação. Você não verá o efeito da propriedade DimColor, a menos que a propriedade TextLevelEffect do objeto AnimationSettings é definida como algo diferente de ppAnimateLevelNone, a propriedade AfterEffect seja definida como ppAfterEffectDim e a propriedade Animate está definida como True. Além disso, se a forma especificada for o único item ou o último item a ser criado no slide, a forma não será esmaecida. Para alterar a ordem de composição das formas em um slide, use a propriedade AnimationOrder.

Exemplo

Este exemplo adiciona à apresentação ativa um slide contendo um título e uma lista de três itens, define o título e a lista para que sejam esmaecidos depois de compostos e define a cor com a qual cada um será esmaecido.

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

Confira também

Objeto AnimationSettings

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.