如何通过DELPHI设置OLE中EXCEL的图表（chart）的X轴最大值？

Question

录制一个宏，里面的东西在DELPHI里用不行！
    ActiveSheet.ChartObjects("图表1").Activate
    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .MinimumScaleIsAuto = True
        .MaximumScale = 5
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

Answer 1

我靠，都不来啊，看我使一个绝招，保证来人。