Контекстное меню - скрыть все кнопки и добавьте только мои кнопки

Question

Я ищу способ скрыть все кнопки из контекстного меню Excel и просто оставьте мои кнопки, которые я создал.

Как я могу это сделать?

Answer 1

Я нашел способ сделать это, когда у меня такая же проблема ..

Если вы хотите удалить любой элемент

Sub RemoveItems()
    Application.CommandBars("Cell").Controls("Insert...").Delete
    Application.CommandBars("Cell").Controls("Cut").Delete
    Application.CommandBars("Cell").Controls("Copy").Delete
End Sub

.

или если вы хотите удалить все элементы, то

Sub DeleteAll()
Set CtrlMenu = Application.CommandBars("Cell")
For Each Item In CtrlMenu.Controls
Item.Delete
Next
End Sub

.

Если вы хотите восстановить снова

Sub ResetMenu()
    Application.CommandBars("Cell").Reset
End Sub

.