由网友(半世浮华一场梦)分享简介：我正在进行Excel图表自动化。当我尝试向上移动LegendEntry(Series)对象时，我找不到MS site中的任何相关API方法。手动方式如下：选择图表>右键>选择数据...选择一个图例条目>单击按钮上移。我怎么才能用VBA做到这一点？提前谢谢您。推荐答案这里有另一种方法Sub Sample()Dim ws...

我正在进行Excel图表自动化。当我尝试向上移动LegendEntry(Series)对象时，我找不到MS site中的任何相关API方法。手动方式如下：选择图表>右键>选择数据...选择一个图例条目>单击按钮上移。我怎么才能用VBA做到这一点？提前谢谢您。

推荐答案

这里有另一种方法

Sub Sample()
    Dim ws As Worksheet
    Dim objChrt As ChartObject
    Dim chrt As Chart

    Set ws = ActiveSheet
    Set objchart = ws.ChartObjects(1)
    Set chrt = objchart.Chart

    chrt.FullSeriesCollection(2).PlotOrder = 1
End Sub

截图