老师，您好：
用如下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)
加好友 
发短信
Post By：2021/10/22 11:14:00 [显示全部帖子]
