пиктограммы

[Artur KakTus]

Уважаемые знатоки,
в меню моей программы подразумеваются пиктограммы перед пунктами меню ( как во многих приложениях, стрелка перед undo и т.д.)
Пример метода вставки пиктограммы нашел в книжке "Профессиональное программирование на VBA в Exel2002. Джон Уокенбах".

НО в офисе хр не работает, или я что-то делаю не так

Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlPopup)
With MenuItem
.Caption = "&Ðàáîòà ñ äàííûìè "
.faceld = 162
.BeginGroup = True
End With
Прошу вас подсказать стандартные коды для faceld, или указать на мою ошибку.
Спасибо

[GSerg]

Вот тебе табличка...

Код: Выделить всё

sub ПолучитьКартинки
  dim i as long, tmp as worksheet
  application.screenupdating=false
  set tmp=worksheets.add
  with application.commandbars("formatting").controls.add
    for i=1 to 1000 'можно другой предел; я просто не знаю, сколько их
      .faceid=i
      .copyface
      tmp.cells(i,2).pastespecial
      tmp.cells(i,3).value=i
    next
    .delete
  end with
  activewindow.zoom = 200
  application.screenupdating=true
end sub

[Artur KakTus]

Спасибо Друг,
классная таблица все 1000 строк, может и больше пиктограмм.
Вся проблема, оказалась в том, что мой VBA хр не поддержует .faceld.
Почему, не знаю. Хотя должен, если в книге приводится пример.
А пока ошибка 438, буду разбираться
Спасибо!