Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування

' - ----

Public Sub NewAction ()

SendKeys "^n" ' Press <CTRL>+<s> for create new file

' instead of <CTRL>+<n>!

End Sub

Hint: Відладжено в MS Excel '97!

Підказки до Toolbar

Як зробити до "саме намальованим" кнопочкам на Toolbar підказки?

Зробити можна от як: (Приклад реалізації на Excel’97 VBA)

' Створюємо тулбар

Р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"