|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.09.2008, 10:06 | #1 |
Пользователь
Регистрация: 01.07.2008
Сообщений: 16
|
Новая иконка
Добрый день!
Подскажите пожалуйста, каким образом можно сделать так чтобы при открытии книги на панели инструментов появлялась иконка, к которой назачен макрос. а при закрытии документа она иконка исчезала с панели. Спасибо |
11.09.2008, 03:08 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Здесь есть аналогичный пример:
http://www.firststeps.ru/vba/excel/r.php?69 нужно будет только заменить Workbook_AddinInstall на Workbook_Open и Workbook_AddinUninstall на Workbook_BeforeClose(Cancel As Boolean) и поместить весь этот код в VBA-модуль "Эта книга" вашего файла/ |
11.09.2008, 09:50 | #3 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Посмотрите вот это FAQ | Макросы | CommandBars.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
11.09.2008, 12:23 | #4 |
Пользователь
Регистрация: 01.07.2008
Сообщений: 16
|
попробовал след. образом:
сделал следующее: Sub Auto_Open() NewIcon ActiveWindow.WindowState = xlMaximized End Sub Sub NewIcon() With Application.Toolbars(2).ToolbarButt ons.Add(Button:=222) .Name = "На новый лист" .OnAction = "NewReport" End With Вроде запускается и даже работает, а как теперь сделать чтобы при закрывании книгу эта иконка исчезала с панели? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Новая подсветка синтаксиса | Alar | О форуме и сайтах клуба | 25 | 06.10.2008 11:15 |
Новая проблема с графами | xakzona | Помощь студентам | 1 | 24.05.2008 15:17 |