1、Private Sub Command1_Click()On Error Resume NextDim i As IntegerDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & “lwl.mdb“conn.Openrs.Open “sele
2、ct * from lwl“, conn, adOpenKeyset, adLockOptimistic Set MSChart1.DataSource = rsWith MSChart1/ 以线条方式显示.chartType = 3/ 把刻录改为手工方式.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False/ 设置最大值.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000/ 设置最小值.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0/ 设置每格为 1.Plot.A
3、xis(VtChAxisIdY).ValueScale.MinorDivision = 1/ 设置收入和兼职收入总列数.ColumnCount = 2/轴坐标标题.Plot.Axis(VtChAxisIdX, 0).AxisTitle = “日期“.Plot.Axis(VtChAxisIdY, 0).AxisTitle = “收入“/轴坐标标题字体大小的设置.Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15.Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25/设置图表标题.Title.
4、Text = “日期和收入对应折线图“/ 显示图例说明.ShowLegend = True/ 标记每个点的值For i = 1 To .Plot.SeriesCollection.Count.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePointNextIf rs.RecordCount 0 Thenrs.MoveFirstElseExit SubEnd IfFor i = 0 To rs.RecordCount - 1.Column = 1 收入
5、曲线所在列.RowCount = rs.RecordCount.Row = i + 1.RowLabel = CStr(rs(“日期“).Data = rs(“收入“).ColumnLabel = “收入“ 图例说明文字/兼职收入显示.Column = 2 兼职收入曲线所在列.Data = rs(“兼职收入“).ColumnLabel = “兼职收入“ 图例说明文字rs.MoveNextNextEnd WithEnd SubPrivate Sub Command2_Click() 下列示例设置图表查看距离和轴分段间距。 Change the chart type to 3D Bar.MSChart1.chartType = VtChChartType3dBarWith MSChart1.Plot Changes 3d bar charts viewing.DepthToHeightRatio = 2.WidthToHeightRatio = 2 Changes the spacing between divisions on the X-Axis.xGap = 0 Changes the spacing between divisions on the Z-Axis.zGap = 0.8End WithEnd Sub调试界面显示:数据库贴图如下:参考资料来源入 http:/
