Rename Copy Pasted Shape or Disable Shape Copy Paste function

[Akanjana]

Hi,
I have a command button which insert flowchart shape in worksheet on click.
once shape is inserted it get unique name automatically. but when user copy paste that inserted shape with ctrl + c and ctrl +v or with right menu click then
shape name is not changed for pasted shape (Shape don't get unique name when manually copy pasted). here i want unique name for pasted shape. or just i can disable shape copy paste keys(ctrl+c and ctrl+v for worksheet) and menu options(copy paste options) itself.

Any workaround ?
Thanks

 

[rlv01]

Question: If you are going to such lengths to prevent copying, why not simply protect the worksheet? That would solve the problem without having to disable the copy feature which might be needed for other things?

 

[rlv01]

You could also use VBA to prevent any duplicate names for flowchart shapes:

Sub InsertShape(control As IRibbonControl) 'adding flowchart shape
    Dim Rng As Range

    Application.ScreenUpdating = False

    Set Rng = Range("B3")
    With ActiveSheet.Shapes.AddShape(msoShapeFlowchartProcess, Rng.Left, Rng.Top, 30, 12)

        MakeShapeNamesUnique ActiveSheet 'no duplicate names

        .OnAction = "GetSelectedShapeName" ' macro Assigned for further editing shape design
        .TextFrame.Characters.Text = "Text1"
    End With
    Application.ScreenUpdating = True
End Sub

'Flowcharts only
Sub MakeShapeNamesUnique(WS As Worksheet)
    Dim Sh As Shape, ShapeName As String
    For Each Sh In WS.Shapes
        If Sh.Type = msoAutoShape And Sh.AutoShapeType = msoShapeFlowchartProcess Then
            ShapeName = Sh.Name
            Do While Right(ShapeName, 1) Like "[0-9]"
                ShapeName = Left(ShapeName, Len(ShapeName) - 1)
            Loop
            Sh.Name = ShapeName & Sh.ID               'explicit unique name using shape ID
        End If
    Next Sh
End Sub

A Worksheet event to enforce unique flowchart names:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MakeShapeNamesUnique Me 'no duplicate names
End Sub

 

[Akanjana]

Question: If you are going to such lengths to prevent copying, why not simply protect the worksheet? That would solve the problem without having to disable the copy feature which might be needed for other things?

sorry, i did not inform you about my project. i use these shapes for label design purpose. so i cannot protect object with worksheet protection. So these shapes are need to be available for edit to users and thanks for your last codes for unique naming shapes. i am already working on it.

 

[Akanjana]

sorry, i did not inform you about my project. i use these shapes for label design purpose (Cell "B3" is label design area. all shapes are inserted here). i cannot protect object with worksheet protection. So these shapes are need to be available for edit to users and thanks for your last codes for unique naming shapes. i am already working on it.

Regarding your last code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MakeShapeNamesUnique Me 'no duplicate names
End Sub

Their is no selection change in worksheet if user select one another shape. its not possible to trigger event, as all other cells are locked except cell "B3". i need to call macro with .onaction event on shape select with ActiveSheet.Shapes(Application.Caller).Select instead. once shape is selected run your above macro. hope you are getting, the way i will workaround it .

 

[rlv01]

Their is no selection change in worksheet....

Ok, but I think you could find another event that could be used to achieve the same result.

 

[Akanjana]

Ok, but I think you could find another event that could be used to achieve the same result.

i am not sure about which event you want me to do it with ?

Can you please check this thread Can you tweak these codes for Userform : Make it small and efficient.

 

[rlv01]

i am not sure about which event you want me to do it with ?

Can you please check this thread Can you tweak these codes for Userform : Make it small and efficient.

I am not suggesting a particular one, because I don't have enough information. Rather, I am suggesting that if you take the time to consider the wide range of available events, you could probably find one that would work for your purposes.

 

[Akanjana]

I am not suggesting a particular one, because I don't have enough information. Rather, I am suggesting that if you take the time to consider the wide range of available events, you could probably find one that would work for your purposes.

Thanks, i got your point. i will look if any event can helps to achieve the desired result. presently i will assign macro to shape on add. and trigger when shape is selected to change duplicate shape name if any exist. thanks for your support and time.