[原创]关于内嵌图的问题

霍达克

初次学习VBA编程，是个菜鸟，现在在跟着做一个项目，遇到问题，请大家帮忙解决，谢谢！

问题是这样的：

Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("各年产值总和").Range("A1:B5"), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="2000-2003产量图表"

运行到这里出现错误：location 作用于chart 失败

这是怎么回事？

micky829

偶也不是很懂，但我觉得问题应该不在上面这段VBA程序中，应该是前后程序关联的问题。有一次我同事搞了一个图表的VBA程序，程序完全没问题，运行第一次后一切正常，可是第二次就没法通过，最后发现第一次生成图表后正好选中了该图表，而程序能够运行的条件是“当前选中的应该是工作表”，所以接着的第二次就失败了。

你应该把整个文件压缩上传一下的说。

snood

Name重复，前面要加删除