Como alterar as cores dos eixos sparkline individualmente

0

Eu encontrei o código a seguir (nos documentos do office) que me permite altere a cor do eixo de um grupo de minigráficos:

Sub AxisColor()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    'Loop through the sparkline groups on the sheet
    For Each oSparkGroup In Range("A2:C2").SparklineGroups
        'Show the axis
        oSparkGroup.Axes.Horizontal.Axis.Visible = True
        'Set the color of the axis to the color of cell A8
        oSparkGroup.Axes.Horizontal.Axis.Color.Color = Range("A8").Interior.Color
    Next oSparkGroup
End Sub

No entanto, eu tenho um (único) grupo de 60 minigráficos e o eixo vai estar acima ou abaixo da linha (difere caso a caso). Eu quero ter diferentes cores para um eixo que está acima de todos os dados (ou seja, um máximo) e para um eixo que está abaixo de todos os dados (ou seja, um min). Isso é possível?

Eu suspeito que eu possa precisar quebrar o grupo sparkline em 60 grupos individuais. Se alguém puder me mostrar como fazer isso (via VBA ou outra forma), então eu posso facilmente adaptar o código acima para os meus propósitos.

    
por Dan 09.02.2015 / 15:09

0 respostas