VBA生成圖表方式

Sub 生成圖表()
Worksheets("圖表").ChartObjects.Delete

With Worksheets("歷史記錄表")

Set MYCHART = .ChartObjects.Add(10, 10, 500, 150) '左,上,長,高

With MYCHART.Chart
 .ChartType = xlLineMarkers
 .SetSourceData Source:=Sheets("歷史記錄表").Range("A1:A61, D1:D61")
.Location where:=xlLocationAsObject, Name:="圖表"


End With

With ActiveChart.Axes(xlCategory).TickLabels.Font
 .Size = 6
End With

Set MYCHART1 = .ChartObjects.Add(10, 180, 500, 150) '左,上,長,高

With MYCHART1.Chart
 .ChartType = xlLineMarkers
 .SetSourceData Source:=Sheets("歷史記錄表").Range("A1:A61, K1:K61")
.Location where:=xlLocationAsObject, Name:="圖表"

End With

With ActiveChart.Axes(xlCategory).TickLabels.Font
 .Size = 6
End With


Set MYCHART2 = .ChartObjects.Add(10, 350, 500, 150) '左,上,長,高

With MYCHART2.Chart
 .ChartType = xlLineMarkers
 .SetSourceData Source:=Sheets("歷史記錄表").Range("A1:A61, J1:J61")
.Location where:=xlLocationAsObject, Name:="圖表"

End With

With ActiveChart.Axes(xlCategory).TickLabels.Font
 .Size = 6
End With


End With
MsgBox "OK"
End Sub