Mude a cor do ponto no gráfico excel VBA

Question

Estou tentando obter os pontos de um gráfico no Excel VBA?

Fiz um gráfico de marcas do aluno no Excel e quero colocar uma condição, ou seja, se as marcas no gráfico são maiores que Em seguida, a cor do ponto muda para vermelho e, se menos de 90, a cor é verde. Como posso fazer isso usando o VBA?

    

Answer 1

Aqui está um exemplo rápido que deve dar tudo de que você precisa:

Sub Macro1()
    Dim crt As Chart
    Dim ser As Series
    Dim val As Long
    Dim pnt As Point

    Set crt = ActiveChart

    Debug.Print "Number of Series: ", crt.SeriesCollection.Count

    Set ser = crt.SeriesCollection(2)

    Debug.Print "# Points in Series 2: ", ser.Points.Count
    NumPoints = ser.Points.Count

    Debug.Print "Values for Series 2:"
    For i = 1 To NumPoints
        val = ser.Values(i)
        Debug.Print " ", i, val,

        Set pnt = ser.Points(i)

        If val > 6 Then
            pnt.MarkerForegroundColorIndex = 4
            pnt.MarkerBackgroundColorIndex = 4
            Debug.Print pnt.MarkerForegroundColor, pnt.MarkerForegroundColorIndex
        Else
            Debug.Print
        End If
    Next i

End Sub

Você deve definir a cor usando o valor Index se puder, pois isso mantém cores consistentes. Observe também que o número da cor não indexado começa como -1, portanto, você não pode usá-lo para verificar o valor real da cor. É é definido, no entanto, depois de alterar a cor. Você também desejará alterar a cor do plano de fundo além do Foreground se quiser que o preenchimento seja o mesmo da borda.

    

Answer 2

Em vez de usar uma macro, faça duas séries. Suponha que as notas estejam em B2: B10. Selecione C2: C10 com C2 a célula ativa. Tipo:

=IF(B2>=90,B2,NA())

segure Ctrl e pressione Enter, que insere a fórmula em todas as células do intervalo selecionado.

Selecione D2: D10 com D2 a célula ativa. Digite

=IF(B2<90,B2,NA())

segure Ctrl e pressione Enter.

O valor da coluna B será exibido apenas uma vez, na coluna C ou D, com base em seu valor, e a outra coluna conterá o erro #N/A , que não é plotado com um marcador.

Faça seu gráfico com colunas C e D, formate C com a cor boa e D com a cor ruim. Vermelho e verde não são uma boa escolha devido à predominância de daltonismo vermelho-verde. Tente azul para o bem e laranja para o mal.