Excel EXCEL中怎样用VBA来写图表

Chart 对象成员

代表工作簿中的图表。

方法

名称说明

Activate 使当前图表成为活动图表。

ApplyChartTemplate 将标准图表类型或自定义图表类型应用于图表。

ApplyDataLabels 将数据标签应用到图表中的所有系列。

ApplyLayout 应用功能区中显示的版式。

Axes 返回一个代表图表上单个坐标轴或坐标轴集合的某个对象。

ChartGroups 返回一个对象，该对象表示图表中单个图表组（ChartGroup 对象）或所有图表组的集合（ChartGroups 对象）。返回的集合中包括每种类型的图表组。

ChartObjects 返回一个对象，它代表工作表上的一个嵌入式图表（ChartObject 对象）或所有嵌入式图表的集合（ChartObjects 对象）。

ChartWizard 修改给定图表的属性。可使用本方法快速设置图表的格式，而不必逐个设置所有属性。本方法是非交互式的，并且仅更改指定的属性。

CheckSpelling 检查对象的拼写。

Copy 将工作表复制到工作簿的另一位置。

CopyPicture 将所选对象作为图片复制到剪贴板。

Delete 删除对象。

Deselect 取消对指定图表的选定。

Evaluate 将一个 Microsoft Excel 名称转换为一个对象或者一个值。

Export 以图形格式导出图表。

ExportAsFixedFormat 导出为指定格式的文件。

GetChartElement 返回指定的 X 坐标和 Y 坐标上图表元素的信息。本方法稍有与众不同之处：调用时只须指定前两个参数，在本方法执行期间，Microsoft Excel 为其余参数赋值，本方法返回后应检验这些参数的值。

Location 将图表移动到新位置。

Move 将图表移到工作簿的另一位置。

OLEObjects 返回一个对象，它代表图表或工作表上的单个 OLE 对象 (OLEObject ) 或所有 OLE 对象的集合（OLEObjects 集合）。只读。

你可以先录制一个创建图表的宏，再加上需要创建图表的条件，稍做修改就行了。

你的问题太含糊了，没有人能精准的回答你的问题。

ActiveSheet.Shapes.AddChart.Select'创建并激活图表

ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$D$8")'设定图表的数据源

ActiveChart.ChartType = xlColumnStacked'设置图表的图表类型

.......

等等.

兄弟，可以在VBA中用Chart.SetSourceData

方法

为指定图表设置源数据区域。

语法

表达式.SetSourceData(Source,

PlotBy)

表达式

一个代表

Chart

对象的变量。

参数

名称

必选/可选

数据类型

说明

Source

必选

Range

包含源数据的区域。

PlotBy

可选

Variant

指定数据绘制方式。可为以下

XlRowCol

常量之一:

xlColumns

或

xlRows。

具体示例

Charts(1).SetSourceData

Source:=Sheets(1).Range("a1:b10"),

_

PlotBy:=xlColumns

---