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
VBA生成圖表方式
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.