|
アドバイスありがとうございます。
早速やってみましたが、ど〜も私のPCにはExcel.xlbファイルが無くできませんでした。
教えて頂いたURLのページを見ててちょっと気になったのですが、私が消してしまったのはツールバーの項目でなく、右クリックメニューが全て消えてしまいました(言葉足らずと言うか、誤った質問内容ですいませんでした)。
多分、本来はこのように実行しなければならなかったと思っていますが
For Each newItemCell In Application.CommandBars("cell").Controls
If newItemCell.Tag = "name" Then newItemCell.Delete
Next newItemCell
このように実行して消えちゃいました。
For Each newItemCell In Application.CommandBars("cell").Controls
newItemCell.Delete
Next newItemCell
ちなみに項目の追加はこのようにやりました。
Application.CommandBars("cell").Controls.Add
復旧できるのでしょうか???
|
|