这是我用来在VirtualBasic中动态创建图表的代码:DimChartAsObjectSetChart=Charts.AddWithChartIfbIssetSourceChartThenCopySourceChart.PasteType:=xlFormatsEndIfForEachsIn.SeriesCollections.DeleteNexts.ChartType=xlColumnClustered.LocationWhere:=xlLocationAsNewSheet,Name:=chartTitleSheets(chartTitle).MoveAfter:=Sheets(S
