如何使用宏在选定的列中绘制数据图?

时间:2018-06-28 15:31:48

标签: excel excel-vba vba

我真的是Macros的新手,我正努力记录宏以完成自己想要的事情。对于我的项目,我需要能够选择单个单元格,然后运行宏并从这些单元格下的数据中绘制图表。我将需要更改选择多少个单元格,并且所选单元格和我需要在图表中放入的数据之间存在间隙。看来我当前使用记录功能创建的宏正在忽略运行它之前选择的单元格,并且每次都会执行相同的数据。在运行它之前,我必须能够每次告诉它要注意的列,使每个列在图表上成为自己的线,但是我无法弄清楚。

Sub Experiment5()
'
' Experiment5 Macro
' Maybe if I do it all at once..
'
' Keyboard Shortcut: Ctrl+m
'
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$C$4,Sheet1!$E$4")
    ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$C$15:$C$19"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).Name = "=Sheet1!$E$4"
    ActiveChart.FullSeriesCollection(2).Values = "=Sheet1!$E$15:$E$19"
    ActiveChart.FullSeriesCollection(2).XValues = "=Sheet1!$B$15:$B$19"
    ActiveChart.ApplyLayout (1)
End Sub

0 个答案:

没有答案