请问用VB编写Excel的程序时，Excel的legend（图例）怎么控制？

[chensan]

例如我在sheet1中增加一个pie图，图的range指定A1：A5，我想legend分别显示指定范围说明。不知道怎么控制legend的显示内容？请大侠帮忙！


简单的说，就是如何set legend的text？？

[hhjjhjhj]

legend没有text属性，它里面所显示的是“系列”名称，改变了系列名称，它的文字也同时改变
Sheet1.ChartObjects("图表 1").Chart.SeriesCollection(1).Name = "=""ggkkggg"""

[sunmaoyou]

你可以这样：
Set r1 = ex.Range(A1:A5)
Set r2 = ex.Range(B1:B5)
Set Ct = ex.Worksheets("sheet1").ChartObjects.Add(0, 280, 350, 250)
Ct.Chart.ChartWizard Source:=ex.Union(r1, r2), _
gallery:=xl3DColumn, HasLegend:=False, Title:="损失分析"
其中r1为名称，r2 为相应数值

[hhjjhjhj]

Sheet1.ChartObjects("图表 1").Chart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R5C1"

[chensan]

谢谢上面的两位。
我看到别人的xls文件中的chart可以啊，图的range为B1:B5，legend就对应A1:A5