作者:乔山办公网日期:
返回目录:excel表格制作
Sub Test()
Dim obj As Shape
For i = 1 To 3
'选择知工作表道
Sheets(i).Select
'删除已经存版在权的图表
For Each obj In ActiveSheet.Shapes
obj.Delete
Next
'添加图表
Range("A1:C100").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("$A$1:$C$100")
ActiveChart.ChartType = xlLineStacked100
Next
End Sub
这里有一例供参考,zhidao如何还不可以的话,内可以提供技术支容持。
Sub AddNewSeries()
Dim MyNewSrs As Series
Set MyNewSrs = ActiveChart.SeriesCollection.NewSeries
With MyNewSrs
.Name = "Fred"
.Values = "=Sheet1!Y_Range"
.XValues = Array(1, 2, 3)
End With
End Sub
判断 Cells(i, Y).Value 的值是否为数字 是就计算 不是就不管
你可以尝试录制一遍折线图的代码再看看