Bara de instrumente de programare VBA
Programare Bara de instrumente vă permite să creați propriile aplicații pentru interfața cu utilizatorul, de exemplu, excluse din meniurile și barele de instrumente ale principalelor butoane de aplicare și comenzile care nu fac parte din aplicațiile dezvoltate de utilizator și să adauge noi fonduri necesare.
CommandBar obiect și CommandBars familie
CommandBar obiect și de familie CommandBars sunt folosite pentru programarea barelor și barele de instrumente de meniu. Familia CommandBars stochează toate barele de meniu și bare de instrumente specifice aplicației.
Familia CommandBars conținută în obiectul Application. Este un bar de comandă. La rândul său, fiecare obiect conține commandBarControls familiale CommandBar, constând din toate controalele din bara de instrumente. Obiectul de control de proprietate CommandBar returnează CommandBarControls de familie. membrii familiei CommandBarControis aparțin unuia dintre cele trei tipuri.
Un exemplu de creare a unei bare de instrumente utilizator
Aici este un exemplu de proiect care creează o interfață de aplicație constă dintr-o bară de meniu și o bară de instrumente. Bara de instrumente include două butoane și o listă drop-down. Pe suprafața unuia dintre butoanele afișate de imagine, iar celălalt - (. Figura 8.2), inscripția.
Fig. interfaţă 8.2.Polzovatelsky
Fiecare dintre butoanele asociate cu un macro, astfel încât activarea lor conduce la punerea în aplicare a macro corespunzătoare. În plus, aceste butoane sunt prevăzute cu inscripții explicative, care sunt afișate în tooltip. Când închideți această bară de instrumente este aplicațiilor eliminate, iar locul său este luat de către bara de instrumente Standard (Standard) și Formatare (Formatare).
În cadrul proiectului - VBAProject (Proiect - VBAProject) selectați ThisWorkbook foaie și tastați următoarele două proceduri.
Private Sub Workbook_WindowActivate (ByVal Wn Ca Excel.Window)
„Procedura de creare a unui nou bară de instrumente
„Workbook este deschis
„Când deschideți bara de instrumente Formatare registru de lucru
„Standard și ascunse
CommandBars ( "Standard"). Vizibil = End fals cu
„Crearea unui nou panou de instrumente cu numele
„MoyaPanelInstrumentov care va
„Eliminat atunci când aplicația este închisă
Poziție: = msoBarTop, MenuBar: = Fals, Temporare: = Adevărat)
Vizibil = True Cu .Controls
„Creați un buton cu o imagine
Cu .Add (Type: = msoControlButton, Id: = 2950)
TooltipText = "KnopkaDeystva!" .OnAction = "Acțiunea 1"
„Creați un buton cu inscripția
Cu .Add (Type: = msoControlButton, Id: = l)
OnAction = "Act 2" End Cu
„Crearea unei liste drop-down
Addltem "Va sosi" 1 .Addltem "concediu" 2
Addltem "Nehotărât" 3
Private Sub Workbook_WindowDeactivate (ByVal Wn Ca Excel.Window)
„Procedura pentru afișarea barei de instrumente Formatare
„“ Standard și când aplicația este închisă
Și pe foaia de modul, introduceți următoarele două proceduri care urmează să fie efectuate prin apăsarea butonului corespunzător.
MsgBox „Rezultatul acțiunii 1“
MsgBox „acțiune de ieșire 2“
Un exemplu de creare a unei bare de meniu utilizator
Aici este un exemplu de proiect care creează o interfață de aplicație, care constă dintr-o bară de meniu personalizat. Bară de meniu personalizat include două elemente de meniu, primul paragraf, de asemenea, conține un meniu vertical (fig. 8.3). Fiecare element este legat de o acțiune, astfel încât în alegerea acestora este macro corespunzător este executat. Când aplicația se închide bara de meniu utilizator este eliminat.
Fig. 8.3.Interfeys cu o bară de meniu personalizat
În cadrul proiectului - VBA Project (Proiectul - VBAProject) Thisworkbook selectare listă și introduceți următoarele două proceduri pe ea.
Private Sub Workbook_WindowActivate (ByVal Wn Ca Excel.Window)
„Procedura de creare a unei noi linii de la meniul
„Workbook este deschis. Când aplicația este închisă
„Națională a unui șir de caractere udatteteteya
Cu Application.CoimnandBars.Add (Name: = "MoeMenyu", MenuBar: = Adevărat, Temporare: = Adevărat) .Visible = Adevărat
„Creați Meniu Meniu!
Caption = "Menu1" Cu .Controls
Cu .Add (Type: = msoControlButtoj »)
Caption = "Punkt1" .OnAction = "AtDva!"
„Crearea unui submeniu Menu1
Caption = "PodMenyu1" Cu
Fig. 8.9.Dialogovoe fereastra Alocare Macro
Schimbarea și de a crea manual imaginea de pe butonul
Faceți clic pe View, Toolbars, Customize (View,
Bare de instrumente, personaliza) sau mutați indicatorul la orice instrument panoul de 1 și de a face un clic dreapta, apoi faceți clic pe Settings (Personalizare).
Deschideți fila Comenzi (Comenzi) caseta de dialog (Customize) Personalizeaza și selectați butonul pe care doriți să o modificați. Faceți clic pe Editare obiect selectat (Modificare selecție). Faceți clic pe Selectați pictograma pentru butonul (ChangeButton Image) și una dintre pictogramele din meniul care apare (vezi Fig. 8.10). Faceți clic pe butonul Close (Închidere) caseta de dialog (Customize) Setări. Imaginea este acum pe butonul Modificare.
Fig. fereastra 8.10.Dialogovoe cu pictograme
Dacă doriți să creați o imagine personalizată pe buton, sau a regla existente, etapa 2 a algoritmului ar trebui să fie după cum urmează.
Știri
Cavalerii Teoria eter