Консультация № 63957
24.11.2006, 06:48
0.00 руб.
0 2 2
Здравствуйте! Как встроить на паналь Excel свою кнопку(пиктограмму)
чтобы при нажатии на неё она оставалась вдавленной а при повторном
нажатии опять возвращалась в исходное состояние?

Обсуждение

Неизвестный
24.11.2006, 07:25
общий
это ответ
Здравствуйте, Rewer8!
Используйте свойство State, как в примере

Приложение:
Sub btnClick()If CommandBars("Custom").Controls(1).State = msoButtonUp Then CommandBars("Custom").Controls(1).State = msoButtonDown Application.StatusBar = "PRESSED"Else CommandBars("Custom").Controls(1).State = msoButtonUp Application.StatusBar = "UNPRESSED"End IfEnd SubSub CreateCustom()On Error Resume NextSet mybar = CommandBars _ .Add(Name:="Custom", Position:=msoBarTop, _ Temporary:=True)mybar.Visible = TrueIf mybar.Controls.Count = 0 Then With mybar.Controls.Add(Type:=msoControlButton) .State = msoButtonUp .OnAction = "btnClick" End WithEnd IfEnd Sub
Неизвестный
25.11.2006, 21:06
общий
это ответ
Здравствуйте, Rewer8!
Правая кнопка на панели инструментов -> Настройка -> вкладка Команды -> категория Элементы управления -> в поле Команды выбрать пункт Кнопка -> и вытянуть его мышкой на панель упраления.
Далее - всё как обычно: изменить выделенный обьект -> Изменить значок на кнопке...
Форма ответа