コンテキストメニュー - すべてのボタンを非表示にして、ボタンのみを追加する
-
02-01-2020 - |
質問
Excelのコンテキストメニューからすべてのボタンを非表示にする方法を探しています。
どうすればいいですか?
解決
私は同じ問題を得たときにこれを行う方法を見つけました。
アイテムを削除したい場合は
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
. 所属していません StackOverflow