Check for the existence of a right click menuitem ?

[BobHunter]

For the life of me I cannot work out how to check if a right click menu exists. I have the following code to create & delete one, but what is the code to check if it exists before I delete/create it ?

To create it I use

With Application.CommandBars("Cell&quot.Controls.Add(Before:=1, temporary:=True)
.Caption = "Prioritise"
.OnAction = ThisWorkbook.Name & "!Prioritise"
.BeginGroup = True
End With

To delete it I use

Application.CommandBars("Cell&quot.Controls("Prioritise&quot.Delete

To check for it already being there ???

Any ideas ?

 

[TonyJollans]

Hi BobHunter,

One way is to search the collection, perhaps with a function ..

Function ControlExists(Menu As String, Caption As String) As Boolean

    Dim ctl As CommandBarControl
    
    For Each ctl In Application.CommandBars(Menu).Controls
        If ctl.Caption = Caption Then ControlExists = True
    Next

End Function

.. and then use the function like ..

If ControlExists("Cell", "Prioritise") Then

 ' Do what you want

Enjoy,
Tony

 

[VBAva]

this thread might be useful to you


thread707-616027

 

[BobHunter]

Thanks for all your replies - I have it sorted now.

 

[VBAva]

Thats great you got it working.

it might be helpful to others with similar questions if you post the code that you used that works.
just a thought

 

[BobHunter]

Apologies, I should have reposted.

I did NOT find a way to loop through the "Cell" commandbars but rather than checking for the existence of my menu, I just reset it on the Autpen/Close to ensure it would not duplicate.

I know this is not the best idea as if I ever write another app that uses the right click menu, it will also wipe out these as well.

Oh well ......

Application.CommandBars("Cell&quot.Reset
Application.CommandBars("Cell&quot.Enabled = True

 

[Bowers74]

Try adding the following line right before your "Delete" command:

On Error Resume Next

This is what I have done with any and all Menu items I have ever created and it works for me.

I hope that this is a better solution for you.


If you can't be "The Best", be the best at what you can!!!

Never say Never!!!
Nothing is impossible!!!

 

[Bowers74]

What I meant is to write this:

On Error Resume Next
Application.CommandBars("Cell&quot.Controls("Prioritise&quot.Delete

This will delete your "Prioritize" Control if it is there and if it isn't it will continue to the next command (in this case "End Sub"

Good Luck!



If you can't be "The Best", be the best at what you can!!!

Never say Never!!!
Nothing is impossible!!!