请问用VB编写Excel的程序时，Excel的legend（图例）怎么控制？ [问题点数：100分，结帖人chensan]
|
简单的说，就是如何set legend的text？？ |
|
|
|
|
|
legend没有text属性，它里面所显示的是“系列”名称，改变了系列名称，它的文字也同时改变
Sheet1.ChartObjects("图表 1").Chart.SeriesCollection(1).Name = "=""ggkkggg""" |
|
|
|
你可以这样：
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 为相应数值 |
|
|
|
谢谢上面的两位。
我看到别人的xls文件中的chart可以啊，图的range为B1:B5，legend就对应A1:A5 |
|
|
|
Sheet1.ChartObjects("图表 1").Chart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R5C1"
|
|
|
关闭