使用VBA反转图表图例的显示顺序

嘿，我完全懂你的困扰——只想把图例的顺序倒过来（类别10放最顶，类别1放最底），但之前的代码连数据系列的顺序都改了，这可不是你要的效果。其实咱们可以直接操作图表的图例项，完全不用碰数据系列本身，用这段VBA就能实现：

实现代码 #

Sub ReverseLegendOnly()
    Dim cht As Chart
    Dim legendEntryCount As Integer
    Dim i As Integer
    Dim tempLegendEntry As LegendEntry
    
    ' 绑定目标图表，这里默认选中的图表，可按需修改
    Set cht = ActiveChart
    If cht Is Nothing Then
        MsgBox "请先选中要调整的图表哦！", vbExclamation
        Exit Sub
    End If
    
    legendEntryCount = cht.Legend.LegendEntries.Count
    
    ' 循环交换前后对应的图例项，不影响数据系列
    For i = 1 To legendEntryCount \ 2
        Set tempLegendEntry = cht.Legend.LegendEntries(i)
        cht.Legend.LegendEntries(i).Delete
        tempLegendEntry.Position = legendEntryCount - i + 1
    Next i
End Sub

代码说明 #

• 前置检查：先确认有没有选中图表，避免运行报错
• 核心逻辑：通过循环交换第i个和倒数第i个图例项——先把前面的图例项删除，再重新插入到对应的靠后位置。这个操作只会改变图例的显示顺序，完全不会修改图表的数据系列（SeriesCollection），所以图表上的系列排列、数据点顺序都保持原样
• 自定义图表：如果你的图表是嵌入在特定工作表里的，可以把Set cht = ActiveChart改成类似Set cht = Sheet2.ChartObjects("销售图表").Chart，替换成你的工作表名称和图表对象名称

验证效果 #

运行代码后，你会发现图例的顺序完全反转了，但图表上的线条/柱状条等数据系列的顺序和原来一模一样，完美符合你的需求！

内容的提问来源于stack exchange，提问作者Sam