powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос Excel 2003 на панели инструментов
3 сообщений из 3, страница 1 из 1
Макрос Excel 2003 на панели инструментов
    #35632826
Мурзик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день, уважаемые Дамы и господа.

Подскажите пожалуйста, может ли быть решена такая задача

Имеем макрос в Excel 2003 и чайника-пользователя

Ему (чайнику) оч-чень хочется, чтобы макрос запускался по нажатию кнопки на панели инструментов.

На своем компьютере создал дополнительную панель, на нее "привесил" кнопку, назначил макрос - все чудесно.

Пользователь запускает на своем компе - у него ес-но эта кнопка отсутствует.

К сожалению, я не могу подойти к пользователю (работа удаленная) и своими руками все сделать за 2 минуты. Пользователь не может и не умеет сделать это даже при моей инструкции (достаточно подробной).

Вопрос - можно ли как-нибудь автоматизировать создание кнопки для запуска макросов на панели инструментов и чтобы пользователь "видел" эту кнопку?

Заранее спасибо.
До свидания.
...
Рейтинг: 0 / 0
Макрос Excel 2003 на панели инструментов
    #35632847
Можно.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно.
Либо одиножды запустите макрос по созданию кнопок с ссылками на макросы.
Либо сделайте надстройку с нужными макросами, а также на автоопен поставить создание кнопок на панели.
...
Рейтинг: 0 / 0
Макрос Excel 2003 на панели инструментов
    #35635811
SuperJur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sub AddCustomButton()
' Добавление кнопки на панель инструментов
With Application.Toolbars(1).ToolbarButtons.Add(button:=222)
.Name = "Кнопка"
.OnAction = "Макрос"
End With
End Sub


Примеры создания панелей инструментов
Листинг 3.42. Панель с одной кнопкой
Sub CreateCustomControlBar()
' Создание панели инструментов
With Application.CommandBars.Add(Name:="Панель", Temporary:=True)
' Создание и настройка кнопки
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonIconAndCaption
.FaceId = 66
.Caption = "Просто кнопка"
End With
' Покажем панель
.Visible = True
End With
End Sub

.OnAction = "Макрос" - только подпиши.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос Excel 2003 на панели инструментов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]