【求助】vba代码含义，插入图表的代码

jzzhmm425

【求助】：各位vba高手们，我想在工作表中插入我想要的图表。因为我要做的图表太多，工作量很大，所以我急需一个能在工作表中插入图表的VBA。现在我录制了一段VBA代码，但是里面的代码是什么意思，我完全不知道，请各位高手们能帮我讲解一下代码的含义了。十分感激你们的帮助了！！！！

1. Sub Macro4()
   
2. Charts.Add
   
3. ActiveChart.ChartType = xlLineMarkers
   
4. ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("C42")
   
5. ActiveChart.SeriesCollection.NewSeries
   
6. ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R3C1:R17C1"
   
7. ActiveChart.SeriesCollection(1).Values = "=Sheet1!R3C8:R17C8"
   
8. ActiveChart.SeriesCollection(1).Name = "=""百米钻孔流量"""
   
9. ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
   
10. With ActiveChart
    
11. .HasTitle = True
    
12. .ChartTitle.Characters.Text = "下抽巷百米钻孔流量"
    
13. .Axes(xlCategory, xlPrimary).HasTitle = True
    
14. .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "时间"
    
15. .Axes(xlValue, xlPrimary).HasTitle = True
    
16. .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "百米钻孔流量值"
    
17. End With
    
18. Windows("123456.xls").SmallScroll Down:=3
    
19. ActiveSheet.Shapes("图表 3").IncrementLeft -204.75
    
20. ActiveSheet.Shapes("图表 3").IncrementTop 273#
    
21. Windows("123456.xls").SmallScroll Down:=12
    
22. ActiveSheet.Shapes("图表 3").ScaleWidth 1.33, msoFalse, msoScaleFromTopLeft
    
23. ActiveSheet.Shapes("图表 3").ScaleHeight 1.07, msoFalse, msoScaleFromTopLeft
    
24. ActiveWindow.Visible = False
    
25. Windows("123456.xls").Activate
    
26. Range("F43").Select
    
27. Application.CommandBars("Stop Recording").Visible = False
    
28. End Sub
    

复制代码

jzzhmm425

悬赏的金币能增加吗？