Не появляется кнопка на панели Standart

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не появляется кнопка на панели Standart (Формулы/Formulas)

sokol12

Дата: Четверг, 05.11.2015, 14:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день.
Пытался создать кнопку на панели "Стандарт".
Вроди получилось, но никак не хочет запускаться и удаляться автоматически при запуске файла.
Вот код запуска:
[vba]

Код

Option Explicit
Private Sub Auto_open()
Dim myCommandBar As CommandBar
Dim myCommandBarSubCtl As CommandBarControl

On Error Resume Next
Application.CommandBars("Standard").Controls("Кнопка").DELETE
On Error GoTo 0

Set myCommandBar = CommandBars("Standard")
Set myCommandBarSubCtl = myCommandBar.Controls.Add(Type:=msoControlButton)
myCommandBar.Visible = True

With myCommandBarSubCtl
.Style = msoButtonIconAndCaption
.Caption = "Возврат"
.FaceId = 2134
.TooltipText = "Кнопка"
.OnAction = "=Macros()"
.Parameter = 1
.BeginGroup = True
End With
End Sub

[/vba]
А вот удаления:
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set myCommandBarSubCtl = Nothing
Application.CommandBars("Standard").Controls("Кнопка").DELETE
End Sub

[/vba]

В чем ошибка? Может кто сталкивался
[moder]Коды нужно не под спойлер сувать, а есть специальная кнопочка - #. Поправил Вам

Сообщение отредактировал _Boroda_ - Четверг, 05.11.2015, 14:42

Ответить

Karataev

Дата: Четверг, 05.11.2015, 20:58 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Создание кнопки:
[vba]

Код

Sub Макрос_Create()
    Dim combar As CommandBar, but As CommandBarButton
    Set combar = Application.CommandBars("Standard")
    Set but = combar.Controls.Add(Type:=msoControlButton)
    With but
        .Style = msoButtonIconAndCaption
        .Caption = "Возврат"
        .FaceId = 2134
        .TooltipText = "Кнопка"
        .OnAction = "Module1.Macro_TestCommandBar"
        .BeginGroup = True
    End With
End Sub

[/vba]
Удаление кнопки:
[vba]

Код

Sub Макрос_Del()
    Dim combar As CommandBar
    Set combar = Application.CommandBars("Standard")
    combar.Controls("Возврат").Delete
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не появляется кнопка на панели Standart (Формулы/Formulas)

Страница 1 из 1
1