Расширение accdr

'публичные переменные в разделе объявлений модуля
Private PopUpName As String 
Private WithEvents firstBtn As CommandBarButton
Private WithEvents SecondBtn As CommandBarButton
'Можно еще сколько надо добавить контролов для меню
 
Private Sub Form_Open(Cancel As Integer)
    With Me
        PopUpName = .Name & .Hwnd
    End With
 
    With CommandBars.Add(PopUpName, 5, , True)
        Set firstBtn = .Controls.Add(1, , , , True)
        With firstBtn
            .Caption = "Первый пункт меню"
        End With
        Set SecondBtn = .Controls.Add(1, , , , True)
        With SecondBtn
            .Caption = "Добавить изображение"
            .OnAction = "=MyFunc()"  'Здесь имя публичной функции в общем модуле, вставляющей изображение 
        End With
    End With
    With Me
        .ShortcutMenu = True
        .ShortcutMenuBar = PopUpName
    End With
End Sub

Public NameMenu 'публичная переменная в разделе объявлений модуля
 
 
'Функция вставляющая изображение в контрол с именем Pic (замените на свое имя) на форме
Public Function MyFunc() 
    Dim dlgOpenFile As Object ' FileDialog
    Set dlgOpenFile = Application.FileDialog(3) 'msoFileDialogFilePicker
    With dlgOpenFile
        .Filters.Clear
        .InitialFileName = CurrentProject.Path
        .AllowMultiSelect = False
        .Title = "Выберите рисунок"
        If (.Show = -1) And (.SelectedItems.Count > 0) Then
            Screen.ActiveForm.Form!pic.Picture = .SelectedItems(1) 'Замените имя Pic на правильное
        End If
    End With
    Set dlgOpenFile = Nothing
End Function

Private WithEvents SecondBtn As CommandBarButton

Screen.ActiveForm.Form!Image.Picture = .SelectedItems(1)

Private WithEvents firstBtn As CommandBarButton

Private Sub Form_Current()
    Me.pict.PictureData = Me.Image
End Sub