X轴时,Excel图形变为空白

时间:2013-01-05 00:52:15

标签: excel vba excel-vba excel-formula excel-2010

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

1 个答案:

答案 0 :(得分:2)

这在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