лента с инструменти за програмиране VBA

Програмиране лента с инструменти ви позволява да създавате свои собствени приложения за потребителския интерфейс, например, изключва от менютата и лентите с инструменти на основните бутони за кандидатстване и команди, които не принадлежат към разработваните приложения на потребителите и се добавят нови необходимите средства.

CommandBar обект и семейни CommandBars

CommandBar обект и семейни CommandBars се използват за програмиране на баровете на менютата и лентите с инструменти. Семейството CommandBars съхранява всички барове менютата и лентите с инструменти специфични приложения.

CommandBars семейство, съдържаща се в обекта за кандидатстване. Това е команда бар. От друга страна, всеки обект съдържа CommandBar семейни commandBarControls, състояща се от всички контроли на лентата с инструменти. Обектът на контрол собственост CommandBar връща семейни CommandBarControls. членове на семейството CommandBarControis принадлежат към един от трите вида.

Един пример за създаването на лентата с инструменти на потребителя

Ето един пример за проект, който създава интерфейс на приложение се състои от лентата с менюта и лентата с инструменти. Лентата с инструменти включва две копчета и падащия списък. На повърхността на един от бутоните показани на изображението, и от друга - (. Фигура 8.2) на надписа.

Фиг. 8.2.Polzovatelsky интерфейс

Всеки един от бутоните, свързани с макро, така че тяхното активиране води до прилагането на подходящ макро. В допълнение, тези бутони са снабдени с пояснителни надписи, които се показват в подсказката. Когато затворите тази лента с инструменти се премахва приложения, както и неговото място се заема от стандартната лента с инструменти (Standard) и форматиране (форматиране).

В проекта - VBAProject (Project - VBAProject) изберете ThisWorkbook лист и напишете следните две процедури.

Частни Под Workbook_WindowActivate (ByVal Wn Както Excel.Window)

"Процедурата за създаване на нова лента с инструменти при

"Работна книга се отваря

"Когато отворите работна книга форматиране лентата с инструменти

"Стандарт и скрит

CommandBars ( "Стандарт"). Visible = False End С

"Създаването на ново арматурно табло с името на

"MoyaPanelInstrumentov, че ще

"Изтрит, когато приложението е затворено

Позиция: = msoBarTop, MenuBar: = False, Временна: = True)

Видим = True С .Controls

"Създаване на бутон със снимка

С .Add (Тип: = msoControlButton, Id: = 2,950)

TooltipText = "KnopkaDeystva!" .OnAction = "Действие 1"

"Създаване на бутон с надпис

С .Add (Тип: = msoControlButton, Id: = л)

OnAction = "Акт 2" завършва с

"Създаване на падащия списък

Addltem "ще пристигне" 1 .Addltem "отпуск" 2

Addltem "Не съм решил" 3

Частни Под Workbook_WindowDeactivate (ByVal Wn Както Excel.Window)

"Процедурата за показване на лентата с инструменти Formatting

'' Стандарт и когато приложението е затворено

И на модул лист, въведете следните две процедури, които да се извършват чрез натискане на съответния бутон.

MsgBox "В резултат на действието 1"

MsgBox "Output действие 2"

Пример за създаване на бар потребителското меню

Ето един пример за проект, който създава интерфейс на приложение, който се състои от един бар по поръчка меню. Персонализирана лента с меню включва две опции в менюто в първия параграф, също така съдържа падащо меню (фиг. 8.3). Всеки елемент е свързан с действия, така че в тях е избора на съответния макрос се изпълнява. Когато приложението се затваря бара на потребителското меню се отстранява.

Фиг. 8.3.Interfeys с бар по поръчка меню

В проекта - VBA проект (Project - VBAProject) Thisworkbook изберете списък и въведете следните две процедури по него.

Частни Под Workbook_WindowActivate (ByVal Wn Както Excel.Window)

"Процедурата за създаване на нова производствена линия в менюто

"Работна книга е отворен. Когато приложението е затворен

"Националната от низ udatteteteya

С Application.CoimnandBars.Add (Име: = "MoeMenyu", MenuBar: = Вярно е, Временна: = True) .Visible = True

"Създаване на менюто Меню!

Caption = "Menu1" С .Controls

С .Add (Тип: = msoControlButtoj »)

Caption = "Punkt1" .OnAction = "AtDva!"

"Създаване на подменю Menu1

Caption = "PodMenyu1" С

Фиг. 8.9.Dialogovoe прозорец Присвояване на макрос

Промяна и ръчно да създаде образа на бутона

Кликнете върху View, Toolbars, Customize (View,
Ленти с инструменти, да персонализирате) или преместете показалеца на всеки панел 1 Tool и направете десен бутон и след това върху Настройки (Персонализиране).

Отворете раздела команди (команди) диалогов прозорец (Персонализиране) Персонализиране и изберете бутона, който искате да промените. Кликнете върху Редактиране на избрания обект (Промени избор). Кликнете Изберете иконата за бутона (ChangeButton изображение) и една от иконите в менюто, което се появява (виж фиг. 8.10). Щракнете върху бутона Close (Затвори) Настройки диалоговия прозорец (Персонализиране). Изображението е на бутона Промяна.

Фиг. прозорец 8.10.Dialogovoe с икони

Ако искате да създадете персонализирано изображение върху бутона, или да коригира съществуващото, етап 2 на алгоритъма трябва да бъде, както следва.

Новини
Knights етер теория