Консультация № 83089
18.04.2007, 11:27
0.00 руб.
0 7 7
Здравствуйте! Помню когда-то, создавая макрос, можно было нарисовать кнопочку и вынести ее на панель. Сейчас у меня Microsoft Office 2003. Есть ли такая возможность в этом пакете?

Обсуждение

Неизвестный
18.04.2007, 11:37
общий
это ответ
Здравствуйте, Olibel!
Эта возможность осталась и сейчас.
Вызовите окно настройки панелей (кнопки) и из Категории: Макросы извлеките на панель Настраиваемую кнопку. Теперь правок кнопкой мыши на этой новой кнопке и выберите "Назначить макрос". Выбираете макрос и ОК.
Неизвестный
18.04.2007, 11:39
общий
это ответ
Здравствуйте, Olibel!
На панели инструменотов щелчек правой кнопкой, выбираешь пункт "Настройка" в контекстном меню, далее переходишь на закладку "Команды", в правом окне (Категории) выбираешь "Макросы", а влевом нужный макрос.
Неизвестный
18.04.2007, 11:40
общий
это ответ
Здравствуйте, Olibel!
Конечно-же есть!
в панели добавки элементов выбираете настраиваемая кнопка и приписываете на нее макрос!
Неизвестный
18.04.2007, 11:43
общий
это ответ
Здравствуйте, Olibel!

Правая кнопка на панели инструментов выбираем пункт VB откроется панель для VB открываем редактор VB и начинаем писать макрос. А затем присваиваем данному макросу кнопочку.
Неизвестный
18.04.2007, 12:22
общий
это ответ
Здравствуйте, Olibel!
Конечно, есть!!!
сервис--макрос--начать запись---назначить панели---заходим"команды", цепляем имя макроса и перетягиваем на панель,если хотите, можете нажать "изменить выделеный объект" и поменять его название, картинку, да там посмотрите.Далее уже пошла запись самого макроса---кнопка закрыть и поехали писать макрос, потом нажмите кнопку "стоп". Вроде все.Нажимаем на кнопку и пробуем
давно
Специалист
399094
201
18.04.2007, 21:57
общий
это ответ
Здравствуйте, Olibel!
Конечно есть смотрите приложение

Приложение:
Set Menu = Application.CommandBars.Add(Name:="Панель", Position:=msoBarTop, MenuBar:=False, Temporary:=True)With Menu .Visible = True .Protection = msoBarNoMove + msoBarNoChangeVisible + msoBarNoCustomize With .Controls Set MyButton1 = .Add(Type:=msoControlButton, Temporary:=True) With MyButton1 .Style = msoButtonIconAndCaption .Enabled = False .Caption = "Кнопка" .TooltipText = "Моя" .FaceId = 44 .OnAction = "Macros" макрос который должен выполняться по нажатию на кнопку End With End With
Неизвестный
23.04.2007, 06:34
общий
это ответ
Здравствуйте, Olibel!
Да в пакете MS Office 2003 есть такая возможность,
Создаем макрос -> нажимаем ПКМ на панели задач -> Настройка... -> Вкладка "Команды" -> в Категории выбираем пункт Макросы -> выбираем нужный макрос и перетаскиваем его на панель -> затем редактируем, делаем норм название и ставим иконку.
Могут, быть некоторые различия при создании иконок на панели, возможно придется повторить шаги в несколько другой последовательности.
Форма ответа