Si të personalizoni menutë e shkurtoreve të Excel 2016 në VBA

Përpara Excel 2007, programuesit VBA përdornin objektin CommandBar për krijimin e menyve të personalizuara, shiritave të veglave të personalizuara dhe menuve të shkurtoreve të personalizuara (klikoni me të djathtën). Duke filluar me Excel 2007, objekti CommandBar është në një pozicion mjaft të çuditshëm. Nëse shkruani kod për të personalizuar një meny ose një shirit veglash, Excel e kap atë kod dhe injoron shumë nga komandat tuaja.

Në vend që të shfaqë përmirësimin tuaj të mirëmenduar të ndërfaqes, Excel 2007 (si versionet e mëvonshme) thjesht i hedh menutë dhe shiritat e veglave tuaja të personalizuara në një skedë "Ribbon catch all" të quajtur Add-Ins.

Përshtatjet e menysë dhe shiritit të veglave përfundojnë në grupin Shtesat → Komandat e menysë ose te Shtesat → Shiritat e veglave të personalizuara. Por personalizimi i menuve të shkurtoreve (që përdor gjithashtu objektin CommandBar) vazhdon të funksionojë siç ka funksionuar gjithmonë - mirë, disi.

Fundi? Objekti CommandBar nuk është më shumë i dobishëm, por mbetet mënyra e vetme për të personalizuar menutë e shkurtoreve.

Shtimi i një artikulli të ri në menunë e shkurtoreve të celularit

Më poshtë, do të gjeni kodin shembull që shton një artikull të ri në menunë e shkurtoreve që shfaqet kur klikoni me të djathtën në një qelizë. Ju duhet të jeni në gjendje t'i përshtatni këta shembuj me nevojat tuaja.

Mund ta përmirësoni pak këtë program Change Case duke e vënë në dispozicion nga menyja e shkurtoreve të celularit.

Procedura AddToShortcut shton një artikull të ri të menysë në menunë e shkurtoreve të qelizës. Ju mund ta përshtatni atë për të treguar makrot tuaja duke ndryshuar vetitë Caption dhe OnAction të objektit të quajtur NewControl.

Nën AddToShortCut()
  Dim Bar As Command Bar
  Dim NewControl si CommandBarButton
  Fshi nga Shkurtorja
  Set Bar = Application.CommandBars ("Qeliza")
  Cakto NewControl = Bar.Controls.Add _
     (Lloji:=msoControlButton, ID:=1, _
     e përkohshme:=E vërtetë)
  Me NewControl
    .Caption = "&Ndrysho rast"
    .OnAction = "ChangeCase"
    .Stil = msoButtonIconAndCaption
  Fund Me
Fundi Nën

NënDeleteFromShortcut()
  Në gabim Rifillo Tjetra
  Application.CommandBars(“Cell”).Kontrollet _
    (“&Ndrysho rastin”).Fshi
Fundi Nën

Nën-libër pune privat_Open()
Telefononi AddToShortCut
Fundi Nën
Nën-libër pune privat_BeforeClose (Anulo si Boolean)
Telefono DeleteFromShortcut
Fundi Nën