Propriedade EffectParameters.Color2 (PowerPoint)
Retorna um objeto ColorFormat que representa a cor na qual terminará uma animação de ciclo de cores.
Sintaxe
expression. Color2
Expressão Uma variável que representa um objeto EffectParameters .
Valor de retorno
ColorFormat
Exemplo
O exemplo a seguir adiciona uma forma, adiciona uma animação de preenchimento a essa forma, depois informa as cores inicial e final do preenchimento.
Sub SetStartEndColors()
Dim effChangeFill As Effect
Dim shpCube As Shape
Dim a As AnimationBehavior
'Adds cube and set fill effect
Set shpCube = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeCube, Left:=300, _
Top:=300, Width:=100, Height:=100)
Set effChangeFill = ActivePresentation.Slides(1).TimeLine _
.MainSequence.AddEffect(Shape:=shpCube, _
effectId:=msoAnimEffectChangeFillColor)
'Sets duration of effect and displays a message containing
'the starting and ending colors for the fill effect
effChangeFill.Timing.Duration = 3
MsgBox "Start Color = " & effChangeFill.EffectParameters _
.Color1 & vbCrLf & "End Color = " & effChangeFill _
.EffectParameters.Color2
End Sub
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de