以文本方式查看主题

-  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
--  
老师,

可否 先将用什么 方法 设置X轴的数据源 告诉我一下,我先自己测试测试。
--  作者:有点蓝
--  发布时间:2021/10/22 12:12:00
--  
帮助没有这个方法,提供实例看能不能换种方式处理
--  作者:水墨青花
--  发布时间:2021/10/22 13:14:00
--  
老师,实例已上传,需要您帮助解决如下两个问题,十分感谢!
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:excel图表.rar


1.  图表的X轴 设定为 时间/hr 列。
2.  图表的X轴与Y轴,都从原点(0)开始。

时间/hr
0
0.25
0.5
0.75
1
2
3
4

--  作者:有点蓝
--  发布时间:2021/10/22 13:39:00
--  
execl文件有问题,根本就打不开
--  作者:水墨青花
--  发布时间:2021/10/23 19:17:00
--  
已解决,谢谢!