关于vb调用excel画图的问题

来源：百度知道 编辑：UC知道 时间：2024/05/26 23:15:51
我在写一个关于油库收发油的程序，我只会使用vb。现在我得到了a(10)、b(10)两个数组，他们之间是有一关系的，我现在需要让vb自己来用这两个数组画图。我希望用excel来画图，而不是自己手动把数据输入到excel里。然后我又要根据题目给出的数据，来在图上找其他没有的数据。就是说，根据a、b两个数组画图，a代表x轴上的数据，b代表y轴上的数据。在图画出来之后，再根据题目给出的x值，找对应的y值。

Option Explicit
'工程引用Microsoft Excel 11.0 Object Libaray
Private Sub Command1_Click()
Dim oExcel As Excel.Application
Dim oBooks As Excel.Workbooks
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oChart As Excel.Chart
Set oExcel = New Excel.Application
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Sheets(1)
'生成随机数据
Randomize Timer
Dim i As Long
Dim a(10) As Long
Dim b(10) As Long
For i = 1 To 10
a(i) = i * 10
b(i) = Rnd() * 100
Next
'向Excel中填充数据
For i = 1 To 10
oSheet.Cells.Item(i, 1) = a(i)
oSheet.Cells.Item(i, 2) = b(i)
Next
'添加图表并设置属性
Set oChart = oBook.Charts.Add
With oChart
'数据源: A1:B10
.SetSourceData Source:=oSheet.Range("A1:B10"), PlotBy:=xlColumns
.ChartType = xlLineMarkers '图表类型
.HasTitle = False