Partilhar via

Método GradientStops.Insert (Office)

Adiciona uma parada a um gradiente.

Sintaxe

expressão. Inserir (RGB, Posição, Transparência, Índice)

expressão Uma expressão que devolve um objeto GradientStops .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
RGB Obrigatório MsoThemeColorSchemeIndex Especifica a cor na qual o gradiente para.
Position Obrigatório Single Especifica a posição da parada dentro do gradiente expressa como uma porcentagem.
Transparency Opcional Single Especifica a opacidade da cor da parada do gradiente.
Index Opcional Long O número do índice da parada.

Comentários

Gradientes são uma transição suave de estado de uma cor para outra. Os pontos de extremidade dessas seções são chamados paradas.

Exemplo

O seguinte exemplo cria três paradas de gradiente de cores no Microsoft PowerPoint.

Sub gradients() 
 Set myDocument = ActivePresentation.Slides(1) 
 Set GradientShapeFill = myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill 
 With GradientShapeFill 
 .ForeColor.RGB = RGB(0, 128, 128) 
 .OneColorGradient msoGradientHorizontal, 1, 1 
 .GradientStops.Insert RGB(255, 0, 0), 0.25 
 .GradientStops.Insert RGB(0, 255, 0), 0.5 
 .GradientStops.Insert RGB(0, 0, 255), 0.75 
 End With 
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.

  • Last updated on