How to disable shape copy paste with vba in worksheet - please check this

[Akanjana]

i have few flowchart shapes in excel sheet. which i use for label designing purpose. but i don't want to allow user to copy paste selected shape object in same worksheet.

Application.copyObjectsWithCells = False

Application.CutCopyMode = False

The reasons for not allowing copy paste to users are as follows:
1) on shape copy paste the name of shape is not getting changed
2) with two shapes with same name, i can not target shape selection with .onaction "macro" assigned to shape.


Excepting following solutions:
1) either to disable shape copy paste and allow shape formatting or
2) rename pasted shape with unique name.
3) any better solution from your end.

Help is highly appreciated. Thank You in advance.

 

[Yongle]

In your code above i can't find "ShapeA_Click" marco codes and details. anyway

I wrote that it was not required for the illustration - I am only showing you what can be done

 

[Yongle]

My code does virtually everything you need in that case
If choosing shape names sequentially, VBA must test that the name does not already exist to prevent other issues

Your requirement is that the shape name must be different to any other shape on the sheet
What is your naming convention for each new shape?