Я нашел следующий код (в офисной документации), который позволяет мне изменить цвет оси группы спарклайнов:
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 или другим способом), я легко адаптирую приведенный выше код для своих целей.