Menu contextuel - masquer tous les boutons et ajouter mes boutons seulement
-
02-01-2020 - |
Question
Je cherche un moyen de cacher tous les boutons dans le menu contextuel Excel et de laisser mes boutons que j'ai créés.
Comment puis-je faire ça?
La solution
J'ai trouvé un moyen de faire cela, quand j'ai eu le même problème ..
Si vous souhaitez supprimer n'importe quel article
Sub RemoveItems()
Application.CommandBars("Cell").Controls("Insert...").Delete
Application.CommandBars("Cell").Controls("Cut").Delete
Application.CommandBars("Cell").Controls("Copy").Delete
End Sub
ou si vous voulez supprimer tous les éléments, alors
Sub DeleteAll()
Set CtrlMenu = Application.CommandBars("Cell")
For Each Item In CtrlMenu.Controls
Item.Delete
Next
End Sub
Si vous voulez restaurer à nouveau
Sub ResetMenu()
Application.CommandBars("Cell").Reset
End Sub
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow