作者：乔山办公网日期：
返回目录：excel表格制作
Sub 图表批复量生制成试百验度()
Sheet1.ChartObjects.Delete
Dim i
For i = 3 To 61
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("b1:f1," & "b2:f2," & "b" & i & ":f" & i)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.Parent.Top = 230 * (i - 3)
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = 120
Next i
End Sub
你可以先录制一个创建图表zhidao的宏，再加上需要创建图表的条件，稍做修改就行了。
你的问题太含糊了，没版有人能精准的回答你的问题。
ActiveSheet.Shapes.AddChart.Select'创建并激活图表
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$D$8")'设定图表的数据源
ActiveChart.ChartType = xlColumnStacked'设置图表的图表类型
.......
等权等.
Dim sh As Worksheet Set sh = ThisWorkbook.ActiveSheet For i = 1 To ThisWorkbook.Sheets.Count ThisWorkbook.Sheets(i).Name = sh.Name Exit For Next i的值就来是第源“百几”度个工问作表答
Chart 对象成员
代表工作簿中的图表。
方法
名称 说明
Activate 使当前图表成为活动图表。
ApplyChartTemplate 将标准图表类型或自定义图表类型应用于图表。
ApplyDataLabels 将数据标签应用到图表中的所有系列。
ApplyLayout 应用功能区中显示的版式。
Axes 返回一个代表图表上单个坐标e799bee5baa6e58685e5aeb9364轴或坐标轴集合的某个对象。
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 集合）。只读。