Я нашел следующий код (в офисной документации), который позволяет мне изменить цвет оси группы спарклайнов:

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

Тем не менее, у меня есть (одна) группа из 60 спарклайнов, и ось будет либо выше, либо ниже линии (она отличается от случая к случаю). Я хочу иметь разные цвета для оси, которая выше всех данных (то есть, максимум) и для оси, которая ниже всех данных (то есть, мин). Это возможно?

Я подозреваю, что мне, возможно, придется разбить спарклайн-группу на 60 отдельных групп. Если кто-то может показать мне, как это сделать (с помощью VBA или другим способом), я легко адаптирую приведенный выше код для своих целей.

0