1,217
社区成员
发帖
与我相关
我的任务
分享急，谁能告诉我如何编程实现将VB中的数据输出到EXCEL中并生成图表，并且能设置图表的各种参数
谁能告诉我如何编程实现将VB中的数据输出到EXCEL中并生成图表，并且能设置图表的各种参数
比如图表的类型，坐标的刻度了什么的
比如图表的类型，坐标的刻度了什么的
...全文
请发表友善的回复…
发表回复
RUKYO 2004-09-09
- 打赏
- 举报
http://uiproject.udngroup.com.tw/ui/TechDocs/Office/Lessons/AnalyzePresentDataInExcel/AnalyzePresentDataInExcel.htm
RUKYO 2004-09-09
- 打赏
- 举报
使用图表
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
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
hhjjhjhj 2004-09-09
- 打赏
- 举报
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195441
RUKYO 2004-09-09
- 打赏
- 举报
http://uiproject.udngroup.com.tw/ui/TechDocs/Office/Lessons/AnalyzePresentDataInExcel/AnalyzePresentDataInExcel.htm
以上连接间部分有示范的，你看看就会明白的。
以上连接间部分有示范的，你看看就会明白的。
stonesl 2004-09-09
- 打赏
- 举报
谢了，只是还想问一点，如何设置横纵坐标的刻度值呀，帮一下忙吧
yijiansong 2004-09-09
- 打赏
- 举报
共同学习！
RUKYO 2004-09-09
- 打赏
- 举报
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
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
stonesl 2004-09-09
- 打赏
- 举报
很感谢，不过我试的时候怎么显示类chart的ChartWizard 方法无效呀，谁能帮帮我呀
