Skip to content

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

As ferramentas que a tecnologia nos oferece atualmente são praticamente infinitas, mas devemos saber usá-las corretamente para atingir o objetivo traçado. 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 às células usando a propriedade Gradiente em uma macro do Excel.

Vantagens da propriedade Gradiente em uma macro do Excel

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

  • Personalize uma planilha do Excel, diferenciando facilmente as células selecionadas dentro do intervalo e domínio.
  • Dê formatos condicionais às planilhas do Excel, usando 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 finais ou de parada de uma cor no gradiente. Ressaltamos que, por meio desse objeto, a cor pode ser aplicada ao interior de uma célula ou intervalo.

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 seguintes códigos 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.
Leia  Como desativar a reprodução automática de vídeos e GIFs no Twitter
adicionar colorstop
  • Agora, para usar totalmente as propriedades do gradiente no VBA , é recomendado alterar as posições padrão para 0 e 1. Dessa 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

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 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.
excel cell colorstop

Como adicionar gradiente com várias cores com ColorStop

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

‘cria o gradiente na célula A1 Range («A1»). Interior.Pattern = xlPatternLinearGradient’ muda sua orientação Range («A1»). Interior.Gradient.Degree = 90

‘limpa os objetos colostop anteriores Range («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 .

Leia  Como configurar o armazenamento de arquivos do iCloud no iPhone ou iPad?