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

admin OFFICE办公 2018-08-22 90 0 Excel

土地论坛如何用EXCEL多行数据批量生成多个折线图,每行生成一个图表

之前看到网上的网友提供代码

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运行。


在WPS里按完alt+I后,ALT+M就灰了


版权声明

本文仅代表作者观点,不代表本站立场。
本文系作者授权地质书签发表,未经许可,不得转载。

评论