VBA生成图表方式

最新推荐文章于 2025-05-07 11:42:45 发布

qq_44390640

最新推荐文章于 2025-05-07 11:42:45 发布

阅读量3k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： VBA

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

VBA 专栏收录该内容

40 篇文章

订阅专栏

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