本帖最后由 lj2002aaa188 于 2010-07-28 11:38:55 编辑

解决方案 »

  1.   

    本帖最后由 bcrun 于 2010-08-13 12:03:44 编辑
      

  2.   

    搞定了,原来属性页上Y轴“自动放缩”的复选框没有去掉。With Form1.MSChart1
        .RandomFill = False  '关闭随机填充数据
        .Legend.Location.LocationType = VtChLocationTypeTop
        
        .Plot.Axis(VtChAxisIdY).ValueScale.Maximum =y_max'y坐标最大、最小值
        .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = y_min
        .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
        'Y轴主要坐标轴项目数    
        .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = y_max -y_min + 1
           
        For Row = 1 To nLastDay
            .Row = Row
            .RowLabel = Row
        Next
    End With