VBA生成图表方式

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接： https://blog.csdn.net/qq_44390640/article/details/102397807

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