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) Он ничего не производит.
Просто интересно, что это и для чего это?
1) Нет проверки наличия такого Bar'а.
2) Он ничего не производит.
Просто интересно, что это и для чего это?