Windows 10
office 365

こんばんは、エクセル上の右クリックメニュー追加と削除について質問させてください。
以下のメニュー追加コードを実行した後に「Application.CommandBars("Cell").Reset」でメニュー削除を試みております。
結果として、標準ビューからメニュー削除出来ておりますが、改ページプレビューから削除することが出来ない状態に陥っております。
改ページプレビューからメニュー削除する方法について、ご教授お願いします。


Sub add()

Dim Newb, i As Long
With Application
For i = 1 To .CommandBars.count
If .CommandBars(i).Name = "Cell" Then
Set Newb = .CommandBars(i).Controls.ADD()
With Newb
.Caption = "追加テスト"
.OnAction = "test"
.BeginGroup = False
End With
End If
Next
End With
End Sub

ちょっと調べてみましたが、
"Cell"で取得できるのは、標準メニューだけの様です。
多分、Microosoftの仕様レベルのバグでしょう。

ヘルプではこんな言い訳が書いてありました。

＞注意
＞・・、ユーザー設定のメニューまたはサブメニューのうち、名前の同じものが複数ある場合、
＞enumName は先頭のものを返します。 
＞
＞正しいメニューまたはサブメニューを確実に返す場合は、
＞そのメニューを表示するポップアップ コントロールを探します。 
＞
＞次に、 CommandBar プロパティをポップアップ コントロールに適用して、
＞そのメニューを表すコマンド バーを返します。

よく分からない日本語ですが、多分
addの時と同じように、しらみつぶしに調べて、NameプロパティがCellだったらResetする、
と言う手しか無いんじゃないでしょうか？

ご返信ありがとうございます。
以下のコードでリセットを試しましたが、消えませんでした。
やはりバグなのでしょうか。


Sub Reset()

Dim Newb, i As Long
With Application
For i = 1 To .CommandBars.count
If .CommandBars(i).Name = "Cell" Then
Application.CommandBars("Cell").Reset

End If
Next
End With
End Sub