vba commandBarButton, свойство Picture

[tyrus2]

Доброго всем дня,

В своем проекте создаю новое меню для правой кнопки мыши. Для каждого элемента (кнокпи) делаю иконку, которая грузится (на данный момент) с иска на прямую (т.е. C:\....\ico01.bmp).
Иконок много и не хочется захламлять файловую структуру.

Как мне сделать иконку для кнопки из формы?
У меня есть небольшой эксперимент:

Sub test()
  Dim aa As New ResoursesIcon
  Dim cmdBar As CommandBar
  Set cmdBar = ActiveDocument.CommandBars.Add("TemporaryPopupMenu", msoBarPopup, False, True)
   Dim button As CommandBarButton
   Set button = cmdBar.controls.Add(Type:=msoControlButton)
   With button
    .Caption = "Кнопа"
    .Picture = aa.ico_01.Picture
   End With
  ActiveDocument.CommandBars("TemporaryPopupMenu").ShowPopup
End Sub

Где в форме aa есть объект ico_01 как Image. Код срабатывает без ошибок, а вот иконку у кнопки не отображает .

Что делаю не верно? И можно ли вообще так поступать в vba (присвоить иконку кнопке из формы)?

[tyrus2]

Отбой, разобрался сам. В объекте Image необходимо поставить размер AutoResize = True, т.к. он там в поинтах , оказалось это важно...