Copy-Paste Shapes from one worksheet to another using Clipboard - Excel VBA

I am using Windows 10 Enterprise 64 bit, Office 2016 Pro 64 bit. I am trying to copy 2 shapes from one worksheet to another worksheet.


The following API code works sometimes, but most times it shoots an Error 1004 for Copy or Paste (Clipboard timing issue). I have tried using different solutions e.g. Timer, Wait, API etc., but seem slow and buggy most of the times!
Also i am trying to paste the images on opposite ends of each merged cell. I have also attached a sample file for inspection.


I don't remember but i read somewhere that if i create separate copy and paste functions/procedures, then it might solve the issue, though not sure!

Please Login or Register  to view this content.

The API code:

Please Login or Register  to view this content.

Why do you need use clipboard?
Try to use

Please Login or Register  to view this content.

and function

Please Login or Register  to view this content.

Hi @BMV. Thanks for your reply.

Your code seems to be working (w/o need of Clipboard functions) though pasting it erratically. Here is a screenshot:

erratic.JPG

How do i rectify the code so that it paste the 2 shapes correctly in the Left and Right corners of the merged cell?

BTW on subsequent runs, the code crashes my excel. I think due to the fact that the Clipboard may be full!

Thanks @BMV. This works pretty fast even with the double `DoEvents`. I turned off Application.EnableEvents, Application.ScreenUpdating, Application.DisplayAlerts & Application.Calculation....and it still works pretty well!

One Question: do we need to add "Application.CutCopyMode=False" to clear clipboard off too many shapes?
:-)

No worries. Thanks.

I came to know this is a known issue with many in Office 365 and Office 2016 Pro 64 bit. Hope Microsoft resolves this clipboard issue soon.

Originally Posted by junoon

issue with many in Office 365 and Office 2016 Pro 64 bit.

and other and I don't hope Microsoft fix it soon :-).

One remark . As you can see function return reference to the copied object or false in the case of error. You can use object for move resize....

Please Login or Register  to view this content.

Originally Posted by BMV

and other and I don't hope Microsoft fix it soon :-).

One remark . As you can see function return reference to the copied object or false in the case of error. You can use object for move resize....

Please Login or Register  to view this content.

Yes, indeed. This i find very useful. Thanks once again. :-)