如何使用vba为每个工作表制图

我正在为当前工作表之后的工作表的图表编写vba代码

Sub InsertChartsAfterWorksheets() Dim myWorksheet As Worksheet Dim myChart As Chart For Each myWorksheet In Worksheets Set myChart = Charts.Add myChart.ChartType = xlXYScatterLines myChart.Move After:=myWorksheet Next myWorksheet End Sub 

它出现错误的图表，什么错误，我需要改变？

Answer 1

请阅读我对这个问题的评论

我想你想在每个工作表之后添加图表（显示为工作表）。

 Dim wbk As Workbook Dim wsh As Worksheet Dim chrt As Chart Set wbk = ThisWorkbook For each wsh in wbk.Worksheets Set chrt = wbk.Charts.Add(After:=wsh) With chrt 'change some properties of chart End With Next 

欲了解更多信息，请参阅：
Charts.Add方法
在Excel 2003中使用Visual Basic创build应用程序代码的图表