Public Sub CreateMenu()
    Dim cb As CommandBar
    Dim cbMenu As CommandBarControl

    ' Создание строки меню.
    Set cb = Application.CommandBars.Add( _
      Name:="CommandBar1", _
      Position:=msoBarTop, _
      MenuBar:=True, _
      Temporary:=True)
    
    ' Создание выпадающего меню.
    Set cbMenu = cb.Controls.Add( _
      Type:=msoControlPopup, _
      Temporary:=True)
    
    cbMenu.Caption = "Main"
    
    ' Добавление пункта меню.
    With cbMenu.Controls.Add( _
      Type:=msoControlButton, _
      Temporary:=True)
        .Caption = "Вставить картинку"
        
        ' 1. Можно так передать параметр.
        .OnAction = "img"
        .Parameter = "Фамилия"
        
        ' 2. Или так.
        '.OnAction = "img ""Фамилия""'"
    End With
    
    cb.Visible = True
    
    Set cbMenu = Nothing
    Set cb = Nothing
End Sub

Public Sub img( _
  Optional fio As String = "")
    ' 1.
    MsgBox "D:\img\" & _
      Application.CommandBars.ActionControl.Parameter & "_g.png"
    
    ' 2.
    'MsgBox "D:\img\" & _
    '  fio & "_g.png"

    'Selection.InlineShapes.AddPicture Filename:="D:\img\" + fio + "_g.png", _
    '  LinkToFile:=False, SaveWithDocument:=True
End Sub

    '.OnAction = "'img ""Фамилия""'"