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