我想用vb调用excel里的数据在excel画图表应该怎样做.

显示全部楼层 · 2009-7-2 16:18:08

以下为关键部分'打开Set sf1 = CreateObject("Excel.Application")sf1.Workbooks.AddSet sf2 = sf1.Workbooks(1)Set sf3 = sf2.ActiveSheet'作图 Range("A1:E5").Select
Charts.Add
ActiveChart.ChartType = xl3DColumn
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveWindow.Visible = False‘第二个图
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
Windows("Book1").SmallScroll Down:=-9
ActiveWindow.Visible = False

千问 · 2009-7-2 16:18:08

好象VB可直接OLE图表