急，谁能告诉我如何编程实现将VB中的数据输出到EXCEL中并生成图表，并且能设置图表的各种参数

[stonesl]

谁能告诉我如何编程实现将VB中的数据输出到EXCEL中并生成图表，并且能设置图表的各种参数
比如图表的类型，坐标的刻度了什么的

[stonesl]

很感谢，不过我试的时候怎么显示类chart的ChartWizard 方法无效呀，谁能帮帮我呀

[RUKYO]

Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

'工程->引用Microsoft Excel x.0 Object Library
Private Sub Command1_Click()
Dim chNewChartObj As ChartObject
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\Book2.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

Set chNewChartObj = ActiveSheet.ChartObjects.Add(Left:=100, Top:=200, Width:=250, Height:=200)
chNewChartObj.Chart.ChartWizard Source:=Worksheets(1).Range("A1:E5"), gallery:=xl3DColumn, PlotBy:=xlColumns, _
categorylabels:=True, seriesLabels:=True, _
HasLegend:=True, Title:="1999 Sales", Categorytitle:="Regions"
End Sub

[yijiansong]

共同学习！

[stonesl]

谢了，只是还想问一点，如何设置横纵坐标的刻度值呀，帮一下忙吧

[RUKYO]

http://uiproject.udngroup.com.tw/ui/TechDocs/Office/Lessons/AnalyzePresentDataInExcel/AnalyzePresentDataInExcel.htm
以上连接间部分有示范的，你看看就会明白的。

[hhjjhjhj]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195441

[RUKYO]

使用图表

Chart对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。

常用方法有：

方法 意义

Add方法 新建图表工作表。返回Chart对象。
PrineOut方法 打印图表。
ChartWizard方法 修改给定图表的属性，其语法为：
　
ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels,
SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)

　　其中：

　　Source：包含新图表的源数据的区域。如省略，将修改活动图表工作表或活动工作表中处于选定状态的嵌人式图表。

　　Gallery：图表类型。其值可为下列常量之一：xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13DBar、x13DColumn, x13DLine, x13DPie、x13 DSurface、xlDoughnut或xlDefaultAutoFormat。

　　Format：内置自动套用格式的编号。如省略，将选择默认值。

　　P1otBy：指定系列中的数据是来自行(xlRows)还是列(xlColumns)。

　　CategoryLabels：表示包含分类标志的源区域内行数或列数的整数。

　　SeriesLabels：表示包含系列标志的源区域内行数或列数的整数。

　　HasLegend：若指定True，则图表将具有图例。

　　Title：图表标题文字。

　　CategoryTitle：分类轴标题文字。

　　ValueTitle：数值轴标题文字。

　　ExtraTitle：三维图表的系列轴标题，或二维图表的第二数值轴标题。

可组合使用Add方法和ChartWizard方法，以创建包含工作表中数据的图表工作表。下例基于工作表“Sheetl”中单元格区域“A1：A20”中的数据生成新的折线图并打印。



With Charts.Add
　.ChartWizard source：=Worksheets ("sheet1").Range ("a1：a20"),gallery：=xlLine, title：=“折线图表”
　.Printout
End With

[RUKYO]

http://uiproject.udngroup.com.tw/ui/TechDocs/Office/Lessons/AnalyzePresentDataInExcel/AnalyzePresentDataInExcel.htm