展开全部
新建工程,在表单上放置MSChart1控件,然后粘贴以下代码:
Private Sub Form_Load()
Dim D(1 To 10, 1 To 2) As Double, i As Integer
Randomize
For i = 1 To 10 '产生随机数
D(i, 1) = 100 * Rnd(1)
D(i, 2) = -100 * Rnd(1)
Next
MSChart1.chartType = VtChChartType2dLine '设定图表类型
MSChart1.ChartData = D
With MSChart1.Plot.Axis(VtChAxisIdY)
.ValueScale.Auto = False '取消自动标刻度大小
.ValueScale.Maximum = 300 '设定最大值为300
.ValueScale.Minimum = -200 '设定最小值为-200
.ValueScale.MajorDivision = 5 '设定主要刻度划分5个,即每格500/5=100
.AxisGrid.MajorPen.VtColor.Blue = True '设定主要刻度线为蓝色
.ValueScale.MinorDivision = 2 '设定次要刻度划分2个,即每格100/2=50
.AxisGrid.MinorPen.Style = VtPenStyleDashDot '设定次要刻度线为点划线
End With
End Sub
Private Sub Form_Load()
Dim D(1 To 10, 1 To 2) As Double, i As Integer
Randomize
For i = 1 To 10 '产生随机数
D(i, 1) = 100 * Rnd(1)
D(i, 2) = -100 * Rnd(1)
Next
MSChart1.chartType = VtChChartType2dLine '设定图表类型
MSChart1.ChartData = D
With MSChart1.Plot.Axis(VtChAxisIdY)
.ValueScale.Auto = False '取消自动标刻度大小
.ValueScale.Maximum = 300 '设定最大值为300
.ValueScale.Minimum = -200 '设定最小值为-200
.ValueScale.MajorDivision = 5 '设定主要刻度划分5个,即每格500/5=100
.AxisGrid.MajorPen.VtColor.Blue = True '设定主要刻度线为蓝色
.ValueScale.MinorDivision = 2 '设定次要刻度划分2个,即每格100/2=50
.AxisGrid.MinorPen.Style = VtPenStyleDashDot '设定次要刻度线为点划线
End With
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询