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
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.