如何按从0到n升序分配x轴值？

Question

我正在尝试通过 VBA 自动绘制温度曲线。每个测量点与下一个测量点的距离为一秒。

我使用了下面所示的代码。我的问题是，现在第一个测量点分配给 1，第二个测量点分配给 2，等等。我想将第一个测量点分配给 0，第二个测量点分配给 1，等等。

Sub DiagramBlattErstellen()

'Variablen definieren
Dim MeinDiagrammBlatt As Chart
Dim Wertebereich As Range

Set Wertebereich = Worksheets("Unbenannt").Columns("H")

'Diagramm erstellen
Set MeinDiagrammBlatt = ThisWorkbook.Charts.Add2

'Werte zuweisen
MeinDiagrammBlatt.SetSourceData Source:=Wertebereich

'Name festlegen
MeinDiagrammBlatt.Name = "Vorlauftemperatur"

'Diagrammtyp
MeinDiagrammBlatt.ChartType = xlLine

有人知道如何解决我的问题吗？

Answer 1

作为示例，使用 G 列作为轴标签，然后添加以下内容：

'Werte zuweisen
MeinDiagrammBlatt.SetSourceData Source:=Wertebereich
MeinDiagrammBlatt.FullSeriesCollection(1).XValues = "==Unbenannt!$G:$G"