マクロで作成したショートカットメニューの左端欄のアイコンの表示の仕方

Question

[別投稿]で教えて下さった通りに、お陰様で独自のメニューを作成することができました。

　もうひとつ欲を言うと、通常（規定）のショートカットメニューには左端にアイコンが表示されているかと思います。

　独自メニューにもこれを実現したいと思っているのですが、どのような仕方の設定を行えば宜しいでしょうか？

　・既定のアイコンが用意されているものを利用する場合

　・独自の絵柄を設定する場合

Answer 1

MukkuMukuです。

Commandbarオブジェクト使わないとですね。

Sub Sample()

    Dim cb As CommandBar, menuName As String

    menuName = "test"

On Error Resume Next

    CommandBars(menuName).Delete

On Error GoTo 0

    Set cb = CommandBars.Add(menuName, msoBarPopup, False, True)

    cb.Controls.Add msoControlButton, 19

    cb.Controls.Add msoControlButton, 21

    cb.Controls.Add msoControlButton, 22

    With cb.Controls.Add(msoControlButton, 128)

        .BeginGroup = True

    End With

    cb.Controls.Add msoControlButton, 129

    With cb.Controls.Add

        .Caption = "カスタムアクションのCaption"

        .OnAction = "CustomAction"

        .BeginGroup = True

        .FaceId = 59

    End With

    Set cb = Nothing

End Sub

Sub CustomAction()

    MsgBox CodeContextObject.Name

End Sub

Answer 2

夏目 翔さん、MukkuMukuさん、ご回答下さりありがとうございます。

お二方の見解から、マクロからの設定は無く、VBAより設定できるということですね。

　独自のメニュー作りは、現在の所、マクロよりもVBAで作成した方がいいかもしれませんね。

（アクションコードを網羅しないといけませんが…）

　2003 以前では、カスタマメニューは作りやすかったのになぁ～～（ﾎﾞﾔｷ…）

　ご情報頂きまして、誠にありがとうございました。

Answer 3

ミルキーMSター さん、こんにちは。Answers への投稿、ありがとうございます。

マクロで独自に作成したショートカット メニューの左端に、アイコンを表示させる方法をお探しなのですね。

いろいろ調べてみたのですが、なかなかいい方法は見つかりませんでした…

通常の Access の機能の範囲では、もしかすると難しいのかも知れません。

何かいい手段や情報などをお持ちの方がいましたら、ぜひコメントください。お待ちしています。