- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]用代码在excel里生成图表 图例的轴标签如何更改？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62184)
-- 发布时间：2014/12/26 21:35:00
-- [求助]用代码在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
-- 发布时间：2014/12/26 22:25:00
--
参考这个