如何用EXCEL多行数据批量生成多个折线图

zhumeiyaaa · 发表于 2018-7-27 11:11

如何用ＥＸＣＥＬ多行数据批量生成多个折线图，每行生成一个图表
之前看到网上的网友提供代码
Sub 图表批量生成()
For r = 1 To 100
      Charts.Add
      ActiveChart.ChartType = xlLineMarkers
      ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A" & r & ":E" & r)
      'ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" '删除本句前的'可将各个图表作为对象插入sheet1中，否则各图表将单独作为chart表插入工作簿。
Next
End Sub

PS：代码使用方法，按住alt依次按F11,I,M。将代码粘贴至右侧窗口后按F5运行。

在ＷＰＳ里按完alt+I后，ＡＬＴ+Ｍ就灰了