VBA 400 异常的有关问题

VBA 400 错误的问题
For  j = 1 To Workbooks(buf).ActiveSheet.ChartObjects.Count
    Workbooks(buf).Worksheets("Sheet2").Activate
    'Workbooks(buf).ActiveSheet.ChartObjects(j).Copy (excel 2010 时 出现 400错误！)

   // 总图表
    Workbooks(totalBuf).Worksheets("Sheet1").Activate
    Workbooks(totalBuf).ActiveSheet.Paste
....
Next

这个VBA功能就是把各个excel文件中的图表汇总到一个总的图表中。在excel 2003中没有问题，升级到了2010时，出现400错误，谢谢！！
------解决方案--------------------
试试先把Workbooks(buf).ActiveSheet.ChartObjects(j)选中

Workbooks(buf).ActiveSheet.ChartObjects(j).select