如何用vba给excel数据画图

不是有录制宏的功能吗？

先建一个简单的图，用宏录制，然后修改用于大数据

以下是我录制的

Sub 绘折线图()

Charts.Add

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _

xlRows

ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C1:R9C7"

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

End Sub

A5:G5为数据区域

R9C1:R9C7 表示X轴标志所在单元格区域

第9行第1列(即A9)到第9行第7列(即G9)

如果不需要可以把这行删除，得到，然后横坐标就自动123456

Sub 绘折线图()

Charts.Add

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _

xlRows

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

End Sub

我这里提供一个函数，是连接获取cad（2004版，其他差不多）PrivateFunctionConnectToCAD2004()AsBoolean'连接AUTOCAD2004OnErrorResumeNextSetacadApp=GetObject(,"autocad.application.16")IfErrThenErr.ClearSetacadApp=CreateObject("autocad.application.16")IfErrThenConnectToCAD2004=FalseMsgBox"连接AutoCAD2004没有成功!"&vbNewLine&"请确认安装的版本。或手动打开AutoCAD2004，然后点击连接按钮。"_&vbNewLine&vbNewLine&Err.Description,vbInformation,AppNameExitFunctionEndIfEndIfOnErrorGoTo0'获取AutoCAD2004当前文档OnErrorResumeNextSetacadDoc=acadApp.ActiveDocumentIfErr.number<0ThenConnectToCAD2004=FalseMsgBox"AutoCAD2004中没有活动的文档。"_&"请激活一个文档或新建一个文档。",vbInformation,AppNameErr.ClearExitFunctionEndIfConnectToCAD2004=TrueacadApp.Visible=TrueEndFunction需要全局变量或者模块及变量：PublicConstAppName="----------------"PublicacadAppAsAcadApplicationPublicacadDocAsAcadDocument每次执行画图之前：调用函数即可：'连接CAD2004IfConnectToCAD2004=FalseThenExitSubEndIf

---