Como adicionar gradientes a células usando a propriedade Gradiente em uma macro do Excel

Como adicionar gradientes a células usando a propriedade Gradiente em uma macro do Excel

dezembro 19, 2022 0 Por Como Posso?
logotipos data excel

A propriedade Gradiente é uma ferramenta útil para formatar células em planilhas, aplicando cores de gradiente. Portanto, usá-lo corretamente permitirá que você faça o seguinte:

  • Personalize uma planilha do Excel , diferenciando facilmente as tabelas e células selecionadas dentro do intervalo e domínio.
  • Dê formatos condicionais às planilhas do Excel, recorrendo a uma macro.

Para configurar o gradiente, você também pode ter uma subseção conhecida como objeto ColorStop. Ele contém uma coleção de todos os pontos de parada ou de extremidade 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 da propriedade Gradiente para adicionar cores de gradiente ao interior das células usando macros.

Como adicionar gradientes com objetos padrão com ColorStop

Existem vários métodos e maneiras de adicionar gradientes às 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 códigos a seguir explicados passo a passo irão apenas alterar 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 usando VBA, 2 objetos ColorStop emergem da coleção do gradiente primário. Onde um dos objetos de parada de cor terá a posição 1 e o outro terá a posição 2.

adicionar colorstop

  • Agora, para usar totalmente as propriedades do gradiente no VBA , é recomendado alterar as posições padrão para 0 e 1. Desta forma, você pode adicionar uma posição intermediária da seguinte forma:

Sub main ()
Dim objColorStop As ColorStop
Dim lngColor1 As Long
Dim lngColor0 As Long

‘cria o gradiente na célula A1
Range (“A1”). Interior.Pattern = xlPatternLinearGradient
‘ muda sua orientação
Range (“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 = Range (“A1”). Interior.Gradient.ColorStops (2) .Color
‘ limpa o colostop anterior objetos
Range (“A1”). Interior.Gradient.ColorStops.Clear
‘cria um objeto colorstop com a posição 0
Set objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (0)
‘ muda sua cor para o primeira cor
objColorStop.Color = lngColor0
‘cria um objeto colorstop com a posição 1
Set 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.
Saiba +  Como filtrar por data em uma tabela do Excel usando o método AutoFiltro

excel cell colorstop

Como adicionar gradiente com várias cores com ColorStop

Para criar um gradiente com cores diferentes usando macros em uma planilha do Excel , o código a seguir deve ser seguido.

‘cria o gradiente na célula A1
Range (“A1”). Interior.Pattern = xlPatternLinearGradient
‘ altera sua orientação
Range (“A1”). Interior.Gradient.Degree = 90
‘limpa o intervalo de objetos colostop anteriores
(“A1”). Interior.Gradient.ColorStops.Clear
‘Cria os pontos de cor para o gradiente na célula A1
Definir objColorStop = Range (“A1”). Interior.Gradient.ColorStops.Add (0)
objColorStop.Color = vbYellow
Definir objColorStop = Range (“A1 ») .Interior.Gradient.ColorStops.Add (0.33)
objColorStop.Color = vbRed
Definir objColorStop = Range (” A1 “). Interior.Gradient.ColorStops.Add (0.66)
objColorStop.Color = vbGreen
Definir 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 às células usando a propriedade Gradiente 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.