Новая иконка - Microsoft Office Excel

Berrimor · 10.09.2008, 10:06

Добрый день!
Подскажите пожалуйста, каким образом можно сделать так чтобы при открытии книги на панели инструментов появлялась иконка, к которой назачен макрос. а при закрытии документа она иконка исчезала с панели.
Спасибо

EducatedFool · 11.09.2008, 03:08

Здесь есть аналогичный пример:

http://www.firststeps.ru/vba/excel/r.php?69

нужно будет только заменить Workbook_AddinInstall на Workbook_Open
и Workbook_AddinUninstall на Workbook_BeforeClose(Cancel As Boolean)
и поместить весь этот код в VBA-модуль "Эта книга" вашего файла/

VictorM · 11.09.2008, 09:50

Посмотрите вот это FAQ | Макросы | CommandBars.

Berrimor · 11.09.2008, 12:23

попробовал след. образом:
сделал следующее:

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

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

10.09.2008, 10:06	#1
Berrimor Пользователь Регистрация: 01.07.2008 Сообщений: 16	Новая иконка Добрый день! Подскажите пожалуйста, каким образом можно сделать так чтобы при открытии книги на панели инструментов появлялась иконка, к которой назачен макрос. а при закрытии документа она иконка исчезала с панели. Спасибо

11.09.2008, 03:08	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Здесь есть аналогичный пример: http://www.firststeps.ru/vba/excel/r.php?69 нужно будет только заменить Workbook_AddinInstall на Workbook_Open и Workbook_AddinUninstall на Workbook_BeforeClose(Cancel As Boolean) и поместить весь этот код в VBA-модуль "Эта книга" вашего файла/ __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

11.09.2008, 09:50	#3
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Посмотрите вот это FAQ \| Макросы \| CommandBars. "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Новая подсветка синтаксиса	Alar	О форуме и сайтах клуба	25	06.10.2008 11:15
Новая проблема с графами	xakzona	Помощь студентам	1	24.05.2008 15:17

11.09.2008, 12:23	#4
Berrimor Пользователь Регистрация: 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 Вроде запускается и даже работает, а как теперь сделать чтобы при закрывании книгу эта иконка исчезала с панели?