如何在VBA绘制的折线图中将X轴值设为从0开始递增？

方法1：直接修改图表X轴刻度 #

Excel默认会给仅提供Y轴数据的图表分配从1开始的索引作为X轴标签，你可以通过调整X轴的刻度属性，直接将起始值改为0。在现有代码末尾添加X轴设置逻辑即可：

修改后的完整代码：

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

' 调整X轴刻度，从0开始计数
With MeinDiagrammBlatt.Axes(xlCategory)
    .MinimumScale = 0       ' 设置X轴起始值为0
    .MajorUnit = 1          ' 设置刻度间隔为1
    .TickLabelSpacing = 1   ' 每个刻度都显示标签
End With

End Sub

方法2：绑定自定义X轴数据列 #

如果需要更灵活的X轴控制（比如后续调整时间间隔规则），可以提前在工作表中生成从0开始的序列作为X轴数据，再将X、Y数据同时绑定到图表：

1. 在工作表的空白列（比如I列）生成序列：I1输入0，I2输入1，下拉填充到和H列数据行数一致。
2. 修改代码绑定双列数据：

Sub DiagramBlattErstellen()

'Variablen definieren
Dim MeinDiagrammBlatt As Chart
Dim Wertebereich As Range
Dim XAchsenBereich As Range
Dim GesamtBereich As Range

With Worksheets("Unbenannt")
    Set Wertebereich = .Columns("H")
    Set XAchsenBereich = .Columns("I") ' 对应提前生成的0、1、2...序列
    Set GesamtBereich = Union(Wertebereich, XAchsenBereich)
End With

'Diagramm erstellen
Set MeinDiagrammBlatt = ThisWorkbook.Charts.Add2

' 绑定X、Y数据，指定按列绘制
MeinDiagrammBlatt.SetSourceData Source:=GesamtBereich, PlotBy:=xlColumns

'Name festlegen
MeinDiagrammBlatt.Name = "Vorlauftemperatur"

'Diagrammtyp
MeinDiagrammBlatt.ChartType = xlLine

End Sub

两种方法对比 #

• 方法1无需额外数据列，代码改动少，适合简单的0起始计数场景。
• 方法2通过自定义数据列控制X轴，扩展性更强，适合后续需要调整X轴规则的情况。

内容的提问来源于stack exchange，提问作者Attila