Foxtable(狐表)用户栏目专家坐堂 → [求助]用代码在excel里生成图表 图例的轴标签如何更改?


  共有3013人关注过本帖树形打印复制链接

主题:[求助]用代码在excel里生成图表 图例的轴标签如何更改?

帅哥哟,离线,有人找我吗?
mxm121
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3026 威望:0 精华:0 注册:2014/9/20 23:56:00
[求助]用代码在excel里生成图表 图例的轴标签如何更改?  发帖心情 Post By:2014/12/26 21:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:无标题.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


 回到顶部
帅哥哟,离线,有人找我吗?
land089
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:451 积分:3045 威望:0 精华:1 注册:2012/7/17 22:08:00
  发帖心情 Post By:2014/12/26 22:25:00 [只看该作者]

参考这个

 回到顶部