主题：用帮助中的vba生成excel图表，如何才能设置图例

各位老师好，我在做销售日报表，一年有365天，狐表自带的图表宽度不够，用了帮助的VBA与EXCEL这节写了如下代码：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表
Dim Rg As MSExcel.Range = Ws.Range("b2:c27")  '图表数据源
ws.ChartObjects.Delete'删除工作表上已经存在的图表
Dim Co As MSExcel.ChartObject = Ws.ChartObjects.Add(160,0,1000,250)   '创建图表对象
Dim Cht As MSExcel.Chart = Co.Chart
Cht.ChartType = MSExcel.XlChartType.xlLineMarkers'图表类型
Cht.SetSourceData(Rg,MSExcel.XlRowCol.xlColumns) '指定数据源和绘图方式
Cht.HasTitle = True
Cht.ChartTitle.Text = "测试图表标题"
With Cht.ChartTitle.Font   '设置标题字体
    .Size = 16
    .ColorIndex = 3
    .Name = "隶书"
End With
With Cht
    .HasLegend = True
    .Legend.Font.ColorIndex = 5 
End With
App.Visible = True

 

但是图例是 系列1、系列2，而不是列的标题，不知道怎么设置：

 

 

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

哦，知道了，数据源区域改成这样就可以了：Dim Rg As MSExcel.Range = Ws.Range("a2:c27")  '图表数据源

 

回复3楼，具体实例发上来测试。