Excel VBA - Подсказки к Toolbar.

Подсказки к Toolbar.

Q: Как сделать к <само нарисованным> кнопочкам на Toolbar’е подсказки? (Ну, те, что после 2-х секунд молчания мышки появляются)

A: Сделать можно вот как: (Пример реализации на Excel’97 VBA )

' Cоздаем тулбар 
Рublic Sub InitToolBar() 
Dim cmdbarSM As CommandBar 
Dim ctlNewBtn As CommandBarButton 

  Set cmdbarSM = CommandBars.Add(Name:="MyToolBar", 
                                 Position:=msoBarFloating, _ 
                                 temporary:=True) 
  With cmdbarSM 
    ' 1) Добавляем кнопку 
    Set ctlNewBtn = .Controls.Add(Type:=msoControlButton) 
    With ctlNewBtn 
      . FaceId = 26 
      .OnAction = "OnButton1_Click" 
     .TooltipText = "My tooltip message!" 
    End With 
    ' 2) Добавляем ещё кнопку 
    Set ctlNewBtn = .Controls.Add(Type:=msoControlButton) 
    With ctlNewBtn 
      .FaceId = 44 
      .OnAction = "OnButton2_Click" 
     .TooltipText = "Another tooltip message!" 
    End With 
    .Visible = True 
  End With 
End Sub 

Hint: На VBA для Excel'95 это делается несколько иначе!

1.

Аноним

7 апреля 2005, 03:08:40

Н-да!!!
1) Нет проверки наличия такого Bar'а.
2) Он ничего не производит.

Просто интересно, что это и для чего это?