以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 折线图表 的X轴数据源设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172621) |
|||||||||
-- 作者:水墨青花 -- 发布时间:2021/10/22 11:14:00 -- 折线图表 的X轴数据源设置 老师,您好: 用如下Code在Excel中做 折线图 时,X(分类)轴的数据源 自动就是 个数,如何设置 X轴的坐标也从 Excel中的Range中选择呢? (用了SeriesCollection.Add(Ws.Range(Rg)), 再通过 XValues = ws.Range(xRg) 设置X轴数据时,报错!) 谢谢! Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(ph) app.Visible = True Dim Rgwz As MSExcel.Range = Ws.Cells(15 + tb.Rows.Count,st+1) Dim Co As MSExcel.ChartObject = Ws.ChartObjects.Add(Rgwz.Left,Rgwz.Top,160,180) Dim Cht As MSExcel.Chart = Co.Chart Cht.ChartType = MSExcel.XlChartType.xlLineMarkers Dim Rg As MSExcel.Range = Ws.Range("G12") \'标题行时间点,DataSource区域 Rg = Rg.Resize(tb.Rows.Count+2,ps) Cht.SetSourceData(Rg, MSExcel.XlRowCol.xlColumns) |
|||||||||
-- 作者:有点蓝 -- 发布时间:2021/10/22 11:39:00 -- 请上传实例测试,手工在execl里设置最终需要的图表,然后截图看看是什么效果 |
|||||||||
-- 作者:水墨青花 -- 发布时间:2021/10/22 11:52:00 -- 老师, |
|||||||||
-- 作者:有点蓝 -- 发布时间:2021/10/22 12:12:00 -- 帮助没有这个方法,提供实例看能不能换种方式处理 |
|||||||||
-- 作者:水墨青花 -- 发布时间:2021/10/22 13:14:00 -- 老师,实例已上传,需要您帮助解决如下两个问题,十分感谢! 1. 图表的X轴 设定为 时间/hr 列。 2. 图表的X轴与Y轴,都从原点(0)开始。
|
|||||||||
-- 作者:有点蓝 -- 发布时间:2021/10/22 13:39:00 -- execl文件有问题,根本就打不开 |
|||||||||
-- 作者:水墨青花 -- 发布时间:2021/10/23 19:17:00 -- 已解决,谢谢! |