Excel VBA - Подсказки к Toolbar (Excel'95).

Подсказки к Toolbar (Excel'95).

Q: Как сделать свой собственный Toolbar с tooltip'ами на кнопках в Excel'95 ?

A: Вот фрагмент кода для Excel'95, который создаёт toolbar с одной кнопкой с пользовательским tooltiр'ом. Нажатие кнопки приводит к выполнению макроса NothingToDo() .

' This example creates a new toolbar, adds the Camera button 
' (button index number 228) to it, and then displays the new toolbar. 
 
Public Sub CreateMyToolBar() 
Dim myNewToolbar As Toolbar 
On Error GoTo errHandle: 

  Set myNewToolbar = Toolbars.Add(Name:="My New Toolbar") 
  With myNewToolbar 
    .ToolbarButtons.Add Button:=228, StatusBar:="Statusbar help string" 
    .Visible = True 
    With .ToolbarButtons(1) 
      .OnAction = "NothingToDo" 
     .Name = "My custom tooltiр text!" 
    End With 
  End With 
Exit Sub 
errНandle: 
  MsgBox "Error number " & Err & ": " & Error(Err) 
End Sub 

' Toolbar button on action code 
Рublic Sub NothingToDo() 
  MsgBox "Nothing to do!", vbInformation, "Macro running" 
End Sub 

Нint: В Excel'97 этот код тоже работает!