VB6调用excel图表示例。

ningyong58 · 发表于 2010-5-19 20:37

以前做图表都是在Excel中。近期想增加VB6使用EXCEL图表的知识点。
请各位大侠提供求VB6调用excel图表示例

[ 本帖最后由 ningyong58 于 2010-5-21 20:53 编辑 ]

ningyong58 · 发表于 2010-5-20 17:56

http://blog.163.com/zhug_1970/bl ... 053201023101926204/
VB中调用Excel生成图表
------------
关键语句
----------------
Set ct = x1.Worksheets(""sheet1"").ChartObjects.Add(10, 40, 220, 120) '插入图形

ct.Chart.ChartType = xl3DPie '图形类型为饼图

ct.Chart.SetSourceData Source:=Sheets(""Sheet1"").Range(""A1:D1""), PlotBy:=xlRows '图形数据来源

With ct.Chart

.HasTitle = True

.ChartTitle.Characters.Text = ""饼图"" '图表标题为饼图

End With

ct.Chart.ApplyDataLabels 2, True '标志旁附图例项标志

Set x1 = Nothing

testChart.rar (1.79 KB, 下载次数: 78)

[ 本帖最后由 ningyong58 于 2010-5-26 21:45 编辑 ]

ningyong58 · 发表于 2010-5-21 20:27

MSChart绘制曲线.rar (4.15 KB, 下载次数: 71)

ningyong58 · 发表于 2010-5-21 20:30

原帖由 ningyong58 于 2010-5-21 20:27 发表
721459
721458

'波形图外观设置
With MSChart1
      .TitleText = "速度 m/min"
      ' '设置图线的外观
      .Plot.SeriesCollection(1).Pen.Width = 40
      .Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
      ' '设置XY轴
      .Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
      .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
      '// 设置最大值
      .Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 360
      .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300
      '// 设置最小值
      .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
      .Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
      '//
      .Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量
      .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量
      .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量
      .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量
'       .Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
'       .Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
      MSChart1.Plot.AutoLayout = False
      MSChart1.Plot.UniformAxis = False
      MSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图
      MSChart1.ChartData = MyData '数据
End With

f8b1987 · 发表于 2020-9-24 09:54

挖一下旧贴。最近刚好VB6处理图表，发现日期Y轴不能识别，搜索很久也没办法解决。只能选择调用Excel生成。
表格图表导入程序中最简易代码（网上来源）

Private Sub Command1_Click()
Set mXlsApp = New Excel.Application
Set mXlsBook = mXlsApp.Workbooks.Open("c:\book1.xls")
Set mXlsSheet = mXlsBook.Worksheets(1)
' 以下代码读取Excel中图表到图片框
mXlsSheet.ChartObjects(1).Chart.CopyPicture '读取图表到剪贴板
Picture1.Picture = Clipboard.GetData '粘贴数据到图片框
Clipboard.Clear '清除剪贴板数据
mXlsBook.Close
mXlsApp.Quit
Set mXlsSheet = Nothing
Set mXlsBook = Nothing
Set mXlsApp = Nothing
End Sub

复制代码

创建图表

Set xlapp = GetObject(, "excel.Application") '打开已有的对象
Set tbook = xlapp.Activeworkbook
Set tbsht = tbook.sheets(1)
tbsht.DrawingObjects.Delete '删除旧图表
bbh = xlapp.Application.Version * 1 'Excel版本号，office2010是14
If bbh < 15 Then '判断Excel版本号，选择对应代码创建图表
Set cht = tbsht.Shapes.AddChart(201, 51, 10) '创建新图表,201样式,51是柱形图
cht.Chart.SetSourceData Source:=tbsht.Range("A1:C" & tbsht.Cells(500, 1).End(3).Row), PlotBy:=2 '2010版本图表数据引用PlotBy:=2是数据在行
Else
Set cht = tbsht.Shapes.AddChart2(201, 51, 10)
cht.Chart.SetSourceData Source:=tbsht.Range("A1:C" & tbsht.Cells(500, 1).End(3).Row), PlotBy:=2 '2019版本图表数据引用
End If
tbsht.ChartObjects(1).Activate
tbsht.ChartObjects(1).Chart.SetElement (2) '添加标题元素
tbsht.ChartObjects(1).Chart.ChartTitle.Text = "各节点情况明细" '图表标题文字
tbsht.ChartObjects(1).Chart.SetElement (104) '添加图列元素
tbsht.Shapes(1).ScaleHeight 0.92, msoFalse, msoScaleFromTopLeft '调整图表高度
tbsht.Shapes(1).ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft '调整图表宽度

复制代码

		自动登录	找回密码
密码			免费注册

[求助] VB6调用excel图表示例。