http://imgur.com/CLkrD9d

My code is as previous link.It always execute smoothly and well, but sometime got run time error at "myslide.shapes.Pastespecial datatype:=ppPasteBitmap" , but if I re-executed it, it could run.

I've type "doevents" after copy preventing copy has not completed and have no idea about the run time error (I checked sometime the excel copy "marching ants" does not appear and get run time error but do not know why)