如何使用 VBScript 绘制指定范围的图形

Question

我有一个包含 5 列的 excel sheet。我想使用 VBScript 仅绘制来自 A、D 和 E 列的数据。

目前，我正在使用下面的代码绘制所有 5 列的图表。请提前告知并感谢。

With .ActiveChart
 .SetSourceData(Source:=objXLSWorkSheet.Range("A:A" & LastRowofA, "D:D" & LastRowOfD, "E:E" & LastRowOfE))
End With

Answer 1

尝试使用Union方法创建必要的范围：

With .ActiveChart
    .SetSourceData .Application.Union(objXLSWorkSheet.Range("A1:A" & LastRowofA), objXLSWorkSheet.Range("D1:D" & LastRowOfD), objXLSWorkSheet.Range("E1:E" & LastRowOfE))
End With

Answer 2

  'objWS = Objet worksheet ("Name"). objExcel = object Excel 
  =>CreateObject("Excel.Application")
      'Use this to select your specific range
      With objWS
        Set xlRange = objExcel.Union(.Range("B1:B5"), .Range("D1:D5"))
      End With

Answer 3

我使用下面的代码部分用 vbscript 生成图表：

objWS = Objet worksheet ("Name"). objExcel = object Excel =>CreateObject("Excel.Application")
 'Use this to select your specific range
 With objWS
Set xlRange = objExcel.Union(.Range("B1:B5"), .Range("D1:D5"))
End With


With GetObject(, "Excel.Application")
 'This code is using to SetSourceData with a specific range  
 objExcel.ActiveChart.SetSourceData xlRange
End With

如何使用 VBScript 绘制指定范围的图形

How to graph a specified range with VBScript

vbscript

excel

graph