As ferramentas que a tecnologia nos oferece atualmente são praticamente infinitas, mas devemos saber como use-os corretamente para atingir o objetivo declarado. Hoje o Microsoft Excel e suas macros são consideradas poderosas, flexíveis e as ferramentas mais utilizadas no mundo.
No entanto, se você for um usuário avançado, deve estar se perguntando como adicionar gradientes para células usando a propriedade Gradient em uma macro do Excel.
Vantagens da propriedade Gradiente em uma macro do Excel
O Propriedade de gradiente é uma ferramenta útil para formatar células de planilhas aplicando cores de gradiente. Portanto, usá-lo corretamente permitirá que você faça o seguinte:
- Personalize uma planilha do Excel, diferenciando facilmente tabelas e células selecionadas dentro do intervalo e do domínio.
- Dê formatos condicionais às planilhas do Excel, recorrendo a uma macro.
Para poder definir o gradiente você também pode ter uma subseção conhecida como objeto ColorStop. Ele contém uma coleção de todos os pontos finais ou de parada de uma cor no gradiente. Ressaltamos que, por meio deste objeto, a cor pode ser aplicada ao interior de uma célula ou intervalo. Você também pode alterar a cor da aparência de uma planilha do Microsoft Excel.
Portanto, os gradientes predefinidos podem ser usados ou se você decidir criá-los do zero, conforme sua conveniência. A seguir, explicaremos o uso do Propriedade de gradiente para adicionar cores de gradiente dentro das células usando macros.
Como adicionar gradientes com objetos padrão com ColorStop
Existem vários métodos e maneiras de adicionar Gradientes para células usando a propriedade Gradiente. No entanto, para ilustrar o processo da maneira mais simples, usaremos a linguagem de macro do Microsoft Visual Basic conhecida como Microsoft VBA.
A seguir, explicaremos como você pode alterar a primeira e a segunda cores de um gradiente usando o VBA para Excel. Você deve ter em mente que os seguintes códigos são explicados passo a passo apenas vai mudar a cor do gradiente. Portanto, presume-se que já exista um gradiente na célula em questão, então:
- Em primeiro lugar, você deve saber que ao criar um gradiente ao usar o VBA, 2 objetos ColorStop aparecem da coleção de gradiente primária. Onde um dos objetos de parada de cor terá a posição 1 e o outro terá a posição 2.
- Agora, a fim de usar totalmente as propriedades de gradiente em VBA, é recomendável alterar as posições padrão para 0 e 1. Desta forma, você pode adicionar uma posição intermediária da seguinte forma:
Sub principal ()
Dim objColorStop As ColorStop
Dim lngColor1 As Long
Dim lngColor0 As Long
‘cria o gradiente na célula A1
Intervalo (“A1”). Interior.Pattern = xlPatternLinearGradient
‘muda sua orientação
Intervalo (“A1”). Interior.Gradient.Degree = 90
‘obtém o código de cor para o primeiro objeto colorstop
lngColor0 = Range (“A1”). Interior.Gradient.ColorStops (1) .Color
‘obtém o código de cor para o segundo objeto colorstop
lngColor1 = Intervalo (“A1”). Interior.Gradient.ColorStops (2) .Color
‘limpa os objetos colostop anteriores
Intervalo (“A1”). Interior.Gradient.ColorStops.Clear
‘cria um objeto colorstop com a posição 0
Defina objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (0)
‘muda sua cor para a primeira cor
objColorStop.Color = lngColor0
‘cria um objeto colorstop com a posição 1
Defina objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (1)
‘muda sua cor para a segunda cor
objColorStop.Color = lngColor1
End Sub
- Este código cria um gradiente na célula A1 e altera as posições padrão para 0 e 1.
Como adicionar gradiente multicolorido com ColorStop
Para criar um gradiente com cores diferentes usando macros em um folha em excel o código a seguir deve ser seguido.
‘cria o gradiente na célula A1
Intervalo (“A1”). Interior.Pattern = xlPatternLinearGradient
‘muda sua orientação
Intervalo (“A1”). Interior.Gradient.Degree = 90
‘limpa os objetos colostop anteriores
Intervalo (“A1”). Interior.Gradient.ColorStops.Clear
‘Cria os pontos de cor para o gradiente na célula A1
Defina objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (0)
objColorStop.Color = vbYellow
Defina objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (0,33)
objColorStop.Color = vbRed
Defina objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (0,66)
objColorStop.Color = vbGreen
Defina objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (1)
objColorStop.Color = vbBlue
End Sub
Esperamos que com essas instruções e dicas simples você aprenda como adicionar gradientes para células usando a propriedade Gradient em uma macro do Excel. Se você também deseja saber como as postagens do WordPress podem ser exibidas, não perca tempo, entre aqui.
