vba - X轴时Excel图表变为空白

Question

这可能是我的工作间隔为 15 分钟，所以每当我更新数据时，我的 Excel 图表都会变为空白。然后，当我进入设置将其设置为自动时，它有一个间隙，然后我必须手动添加 1 以手动调整固定值，因此我可以做一个设置来阻止图表变为空白或可以制作一个删除的宏会切换图形并删除空格。这就是 15 分钟 10/1/2012 0:30 的样子。我尝试使用宏来设置范围的最大值和最小值，但 Excel 2010 似乎不允许这样做。

Answer 1

这在 XL2010 中对我有用：

Sub Tester()

    Dim rngDates As Range, sht As Worksheet
    Dim wsf As WorksheetFunction

    Set wsf = Application.WorksheetFunction
    Set sht = ActiveSheet
    Set rngDates = sht.Range(sht.Range("B5"), sht.Cells(Rows.Count, 2).End(xlUp))

    'set x-axis (with a padding of 1 hour either side)
    With ActiveSheet.ChartObjects("Chart 1").Chart
        .Axes(xlCategory).MinimumScale = wsf.Min(rngDates) - (1 / 24)
        .Axes(xlCategory).MaximumScale = wsf.Max(rngDates) + (1 / 24)
    End With

End Sub