VB粘贴图片到EXCEL表格时出错

[ccbbcc]

我写了个上位机软件，把界面上的控件粘贴到EXCEL表格。
代码：
Clipboard.Clear
Clipboard.SetData Form7.CWGraph1.ControlImage

XlSheet.Range("A28").Select
XlSheet.Paste
Clipboard.SetData Form7.CWSlide1.ControlImage

XlSheet.Range("U28").Select
XlSheet.Paste
有时候出错：

请问高手，如何解决？谢谢！

[milaoshu1020]

可以尝试增加DoEvents;

[ccbbcc]

谢谢！在哪儿加呀？

[milaoshu1020]

这样试试:

            Clipboard.Clear
            DoEvents
            Clipboard.SetData Form7.CWGraph1.ControlImage
            DoEvents
            
            XlSheet.Range("A28").Select
            XlSheet.Paste
            DoEvents

            Clipboard.SetData Form7.CWSlide1.ControlImage
            DoEvents
            
            XlSheet.Range("U28").Select
            XlSheet.Paste
            DoEvents