☰

如何单独更改迷你图轴的颜色

tag-icon • tag-icon microsoft-excel vba formatting microsoft-excel-2013
如何单独更改迷你图轴的颜色

我发现以下代码（在办公室文档中）它允许我更改一组迷你图的轴颜色：

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 或其他方式），那么我可以轻松地调整上述代码以满足我的目的。

相关内容