Панель для макросов

[shadowbeast]

Добрый день!

Сделал панель инструментов, на которой висят все рабочие макросы. Но так как панель довольно большая получилась - каждый макрос своя кнопка на которой написано NewMacros...и т.д., захотелось сделать красивые значки для каждой кнопки.
В ВУЗе, когда проходили Ворд, нам показывали, как это сделать. Сейчас, не могу найти эту функцию. Может кто подскажет, как кнопке макроса назначит ькартинку, чтобы на панели она меньше места занимала.

И можно ли сделать инсталятор, который бы добавлял в Ворд на новой машине панель с инструментами-макросами? Или всё вручную?

Спасибо!)

[Sasha_Smirnov]

Пошлите по почте свой докумет с макросами — по идее, его панели (с кнопками для макросов) передадутся вместе с ним.

В 2007-м (пока) не знаю, а вот в старых Вордах достаточно правой кнопкой мыши щёлкнуть по свободному месту панели, выбрать пункт (последний) «Настройка...», и после этого щелчки по кнопкам активизируют (на открывшейся панели Настройка) нужные вам функции.

В 2007-м Ворде рисунки кнопок можно выбрать из коллекции, а в более ранних — и рисовать самому.

«Только текст (в меню)» — это то, что в вышеупомянутой панели Настройка, после щелчка по любой кнопке (в панелях инструментов), оставляет на ней лишь РИСУНОК, без текста NewMacros...

При столь фундаментальном подходе к «инструментам-макросам», наверное, есть смысл ваш модуль NewMacros как-то переименовать, MyOldMacros, что ли. (Для этого: щелчок по имени NewMacros, затем F4 и ввод другого имени.) Конечно, после этого все кнопки-макросы нужно будет пересоздать*.

Кстати, если они у вас в общем шаблоне (Normal.dot), то перед посылкой на другой комп (где, естественно, СВОЙ Normal.dot) необходимо имя Normal заменить... ну, скажем, так: создать копию и затем «обозвать» её Normal33.dot (или Normal33.dotx, смотря какая версия Word).
___________________________________ ___________
* У меня, например, они занимают не панель, а 1 кнопку, которая открывает меню (а в нём макросы: 5-угольник, 6-, 7-, 8-угольник) — и компактно, и удобно!

[madmot]

по поводу картинок на иконках. word имеет их достаточно
посмотреть, например первые 500, можно так:
1-ый макрос создает новую панель и просто добавляет в него кнопки, картинка на ней меняется от номера "FaceId"
2-ой удаляет созданную панель

Sub CreateCommandBar()
  With Application.CommandBars.Add("BAR", msoBarTop, False, True)
    .Visible = True
     With .Controls
        For i = 1 To 500
        With .Add(msoControlButton)
          .Style = msoButtonIcon
          .FaceId = i   '<-- НОМЕР ИКОНКИ
         End With
         Next i
      End With
    End With
End Sub

Sub delBar()
  CommandBars("BAR").Delete
End Sub

таким принципом можно создать панель со своими макросами, типа

................................
        With .Add(msoControlButton)
          .Style = msoButtonIcon
          .FaceId = 213   ' Иконка Добавить  
          .OnAction="МойМакрос1"
         End With
        With .Add(msoControlButton)
          .Style = msoButtonIcon
          .FaceId = 214 ' Иконка Удалить
          .OnAction="МойМакрос2"
         End With
.....................................

[Sasha_Smirnov]

Если регулярно пишешь (и используешь) макросы, то уже через пару недель легко забыть, что имелось в виду под cловами "Мой", "New", "Чужой" и "OLd"!

Да и вообще, программы хороши (в том числе) своей переносимостью, а МойМакрос — это чисто для себя. Если это так и есть, то зачем кнопочки, картинки... Нажал альт-F8 (в любом Word) — и двойной щелчок по названию "твоего" макроса.

[madmot]

Согласен полностью, я написал "Мой макрос" - это для примера (просто сочетание символов).
изначально я хотел показать что иконок в word-e много, просто добираться до большенства из них можно только программно, и как следствие, получается программно оформлять панель с макросами.

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

...», и после этого щелчки по кнопкам активизируют (на открывшейся панели Настройка) нужные вам функции.

Не сразу, а по нажатии (на панели Настройка) кнопки Изменить выделенный объект.

P/s: всё это можно узнать и по F1. Вы бы хоть намекнули — зря мы тут старались или нет?

[shadowbeast]

Спасибо за ответы.
Аврал на работе, не до форума)

Вообщем не стал особо мудрить, воспользовался первым же ответом)
Сделал несколько картинок для макросов и теперь спокоен.
Цифры 1,2,3,4,5 и т.д. помогают пользователям не путаться в каком порядке нажимать кнопки)))