请问用VB编写Excel的程序时,Excel的legend(图例)怎么控制?

chensan 2003-10-15 05:37:29
例如我在sheet1中增加一个pie图,图的range指定A1:A5,我想legend分别显示指定范围说明。不知道怎么控制legend的显示内容?请大侠帮忙!


简单的说,就是如何set legend的text??
...全文
139 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
chensan 2003-10-16
  • 打赏
  • 举报
回复
谢谢上面的两位。
我看到别人的xls文件中的chart可以啊,图的range为B1:B5,legend就对应A1:A5
hhjjhjhj 2003-10-16
  • 打赏
  • 举报
回复
Sheet1.ChartObjects("图表 1").Chart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R5C1"
sunmaoyou 2003-10-15
  • 打赏
  • 举报
回复
你可以这样:
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 2003-10-15
  • 打赏
  • 举报
回复
legend没有text属性,它里面所显示的是“系列”名称,改变了系列名称,它的文字也同时改变
Sheet1.ChartObjects("图表 1").Chart.SeriesCollection(1).Name = "=""ggkkggg"""

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧