Помогите сделать панель инструментов и кнопки на ней.

Помогите сделать панель инструментов и кнопки на ней.
При этом кнопки надо назвать и назначить на них макросы,
Нужно чтобы кнопки отображались текстом, а не значком
ПЛИЗ!!!

0

Вся панель инструментов с твоими предварительно сделанными кнопками
храниться в файле с расшир XLB. т.е. на другом компьютере запускаешь его и EXCEL там становиться с твоей панелью

или это

Public Sub createpanel() 'Auto_open
Dim y
On Error Resume Next
Toolbars('Поиск').Delete
Application.ScreenUpdating = False
Toolbars.Add Name:='Поиск'
Toolbars('Поиск').Visible = True
Toolbars('Поиск').Width = 1527
With Application
.ShowToolTips = True
.LargeButtons = False
.ColorButtons = True
End With
'For y = 0 To 300
Toolbars('Поиск').ToolbarButtons.Add Button:=218, Before:=1
Toolbars('Поиск').ToolbarButtons(1).OnAc tion = 'nalistotcet'
Toolbars('Поиск').ToolbarButtons(1).Name = 'лист ОТЧЕТ'
Toolbars('Поиск').ToolbarButtons(1).Capt ion = 'лист ОТЧЕТ'
Toolbars('Поиск').ToolbarButtons(1).Styl e = msoButtonAutomatic
'With Toolbars('Поиск').ToolbarButtons(1)
' .Visible = False
' .Style = msoButtonCaption
' button
'End With
Toolbars('Поиск').ToolbarButtons.Add Button:=154, Before:=2
Toolbars('Поиск').ToolbarButtons(2).OnAc tion = 'helpknopka'
Toolbars('Поиск').ToolbarButtons.Add Button:=0, Before:=3
Toolbars('Поиск').ToolbarButtons(2).Name = 'Помощь'
'Next y
Toolbars('Поиск').Width = 31
With Toolbars('Поиск')
.Left = 706
.Top = 430
.ToolbarButtons(1).Style.msoButtonIconAn dCaption = True
End With
End Sub

0

Это конечно хорошо
(Toolbars(''Поиск'').ToolbarButtons(1).O nAction = ''nalistotcet'')
но если я хочу сосладся на макрос в другой книге, (предположим что до этого я уже открыл книгу)
тогда как быть???

0