Limpar Configuração VBA

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Limpar Configuração VBA

Mensagempor LSDuarte » Qua Mai 15, 2019 10:23 am

Bom dia,

Modifiquei um código VBA que colore a linha conforme dados positivos e negativos para atender a minha necessidade, o mesmo funciona, porém o marcador não acompanha a formatação adequada.

Como realizo a limpeza da configuração para testar o código novamente?
Código: Selecionar todos
Sub ColorirGrafRC()

'''' Declaração de variáveis
Dim srs As Series
Dim iPoint, Limite As Long
Dim vValues As Variant
Limite = Range("E3").Value 'Célula onde está o limite
'''' FINAL DE - Declaração de variáveis

''''Pinta o gráfico de linhas
ActiveSheet.ChartObjects("Gráfico 1").Activate 'Nome do gráfico de linhas
Set srs = ActiveChart.FullSeriesCollection(1)
vValues = srs.Values
For iPoint = 1 To UBound(vValues)

'Linha
With srs.Points(iPoint).Format.Line.ForeColor
Select Case vValues(iPoint)
    Case Is >= Limite
    '.ObjectThemeColor = msoThemeColorAccent1 'Cor padrão dos gráficos Excel
    .RGB = RGB(84, 130, 53) 'Cor personalizada *verde
    With srs
      ' .ChartType = xlXYScatterLines
       .MarkerSize = 5
       .MarkerBackgroundColor = RGB(84, 130, 53)
      ' .MarkerStyle = xlMarkerStyleDot
    End With
   
    Case Is < Limite
    .RGB = RGB(192, 0, 0) 'Cor personalizada *vermelho
    'Marcador
       With srs
         ' .ChartType = xlXYScatterLines
          .MarkerSize = 5
          .MarkerBackgroundColor = RGB(192, 0, 0)
         ' .MarkerStyle = xlMarkerStyleDot
       End With
End Select
End With
 
Next
''''FINAL DE - Pinta o gráfico de linhas

End Sub
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por Patropi em Qua Mai 15, 2019 1:36 pm, em um total de 1 vez.
Razão: Ao postar códigos VBA tem que utilizar a Tag Code, conforme as regras do fórum.
LSDuarte
Membro
Membro
 
Mensagens: 4
Registrado em: Qua Mai 15, 2019 9:52 am
Has thanked: 2 times
Have thanks: 0 time

{ SO_SELECT }

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: LaerteB e 7 visitantes