clipboard的问题(200)

我不停的循环一下方法： if Clipboard.FormatCount > 0 then Clipboard.Clear; ExcelApplication.ActiveSheet.Range[ 'A31:R51' ].Copy; Application.ProcessMessages; Image1.Picture.Assign(Clipboard); Application.ProcessMessages; Sleep(50); if Clipboard.FormatCount > 0 then Clipboard.Clear; ExcelApplication.ActiveSheet.Range[ 'A53:R78' ].Copy; Application.ProcessMessages; Sleep(50); Image2.Picture.Assign(Clipboard); Application.ProcessMessages; if Clipboard.FormatCount > 0 then Clipboard.Clear;几次后，出现 cannot open clipboard该如何解决？

你写的好乱啊！用不着加那么多Application.ProcessMessages;一般一个循环语句中一个！

每次都出错在最后一个if Clipboard.FormatCount > 0 then Clipboard.Clear;中。我都 Application.ProcessMessages; N次了。还是偶尔会出错。因为我的这个EXCEL上放了一个CHART，我只能按照区域复制下来，放置到剪切板。我不知道方法如何取一个EXCEL中名字为AAA的chart。如果知道方法，也不用那么麻烦了。

你的最后一个Application.ProcessMessages后面没有加sleep另外:OLE控制操作都是比较慢的,可以适当调整增大sleep的数值,等待复制工作完成