[[20150514121427]]　『リボンの追加をアドインのメニューでなく』（setcom）　ページの最後に飛ぶ

『リボンの追加をアドインのメニューでなく』（setcom）

リボンの追加をアドインのメニューでなく
下のコードを実行すると、メニューのアドインの中に作成されます。
ホーム、挿入、、、とかのメインメニューと同レベルでの作成は出来るでしょうか？

Sub AddMenu()

    Dim NewM As Variant, NewC As Variant
    ''新しいメニューを追加する
    Set NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
    NewM.Caption = "新しいメニュー(&C)"
    ''オリジナルコマンドを追加する(1)
    Set NewC = NewM.Controls.Add
    With NewC
        .Caption = "保護解除(&U)"
        .OnAction = "UnProtectSheet"
        .BeginGroup = False
        .FaceId = 277
    End With
    ''オリジナルコマンドを追加する(2)
    Set NewC = NewM.Controls.Add
    With NewC
        .Caption = "参照元/先のトレース(&P)"
        .OnAction = "Precedents"
        .BeginGroup = True
        .FaceId = 450
    End With
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

コマンドバーは2003以前の古いオブジェクトなので、リボンだとアドイン下にできてしまいますよね。
同じような命令では実現できないようです。XMLファイルを用意して登録するようですよ。
http://okwave.jp/qa/q8681028.html
（???） 2015/05/14(木) 17:11

大変有り難う御座いました。
なかなか難しいですね。
（setcom） 2015/05/14(木) 18:32

コメント返信：

[ 一覧(最新更新順) ]

[[20150514121427]] 『リボンの追加をアドインのメニューでなく』（setcom） ページの最後に飛ぶ

[[20150514121427]]　『リボンの追加をアドインのメニューでなく』（setcom）　ページの最後に飛ぶ