以下代码演示了如何修改活动工作表中的第一个图表的第一个图例的名称：
Sub Demo()
On Error Resume Next
With ActiveSheet.ChartObjects(1).Chart
If Not .HasLegend Then
.HasLegend = True
End If
.SeriesCollection(1).Name = "[改成你要的名字]"
End With
End Sub
录制宏就行了，这种东西不用问别人
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024