Excel 设置X轴（类别轴）和Y轴（值轴）

我有一张Excel表格，里面有一些数据和图表。我使用以下代码，设置值（Y）轴的最小值和最大值。这很好：

Dim cht As ChartObject

    MaxChartNumber = Application.WorksheetFunction.RoundUp(totalWeights(1, 1), 0)
    MinChartNumber = totalWeights(daysToPip, 8)
    If totalWeights(daysToPip, 9) < MinChartNumber Then
        MinChartNumber = totalWeights(daysToPip, 9)
    End If
    MinChartNumber = Application.WorksheetFunction.RoundDown(MinChartNumber, 0)

    For Each cht In ActiveSheet.ChartObjects
        cht.Chart.Axes(xlValue).MinimumScale = MinChartNumber
        cht.Chart.Axes(xlValue).MaximumScale = MaxChartNumber
    Next cht

这会引发一个错误：

---

执行此操作的正确步骤是什么？

找到了它。你真傻，怎么会瞎。。。根据日期为X轴选择。现在它工作得很好

For Each cht In ActiveSheet.ChartObjects
    cht.Chart.Axes(xlValue).MinimumScale = MinChartNumber
    cht.Chart.Axes(xlValue).MaximumScale = MaxChartNumber
    cht.Chart.Axes(xlCategory).MinimumScale = 1
    cht.Chart.Axes(xlCategory).MaximumScale = daysToPip
Next cht