With ActiveSheet.Shapes.AddChart.Chart
.SetSourceData Source:=Range("'Sheet1'!$B$7:$E$14")
.ChartType = xlColumnClustered
.SeriesCollection(3).ChartType = xlLine
End With
我的示例的源数据：
Month Series1 Series2 Series3
J 10 15 5
F 20 30 10
M 30 45 15
A 40 60 45
M 50 75 72
Jun 60 90 24
Jul 70 105 35
Slightly tidied-up recorded macro:
With ActiveSheet.Shapes.AddChart.Chart
.SetSourceData Source:=Range("'Sheet1'!$B$7:$E$14")
.ChartType = xlColumnClustered
.SeriesCollection(3).ChartType = xlLine
End With
Source data for my example:
Month Series1 Series2 Series3
J 10 15 5
F 20 30 10
M 30 45 15
A 40 60 45
M 50 75 72
Jun 60 90 24
Jul 70 105 35
发布评论
评论（1）
稍微整理一下录制的宏：
我的示例的源数据：
Slightly tidied-up recorded macro:
Source data for my example: