主题：[求助]用代码在excel里生成图表 图例的轴标签如何更改？

此主题相关图片如下：无标题.png

右侧的图例名称如何更改啊

vba里这么搞

    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.Legend.Select
    ActiveChart.SeriesCollection(1).XValues = "=统计数据!$A$2:$A$7"

狐表里应该怎么写呢

Dim C_age As MSExcel.ChartObject = Ws1.ChartObjects.Add(30,310,400,250)
Dim Rg As MSExcel.Range = Ws2.Range("B1:B7")  '图表数据源
Dim Cht As MSExcel.Chart = C_age.Chart
Cht.ChartType = MSExcel.XlChartType.xl3Dpie
Cht.SetSourceData(Rg,MSExcel.XlRowCol.xlColumns) '指定数据源和绘图方式
Cht.ApplyLayout (6)     '设置图表布局
Cht.Elevation = 30