Vorhandenes Menü erweitern

300020




Mit diesem Programm kann das Menü "Extras" um einen neuen Menüpunkt erweitert werden:

 

Const MenüEintrag = "eigens Menü"

Sub Menü_erweitern()

Call Menüeintrag_löschen

Set CB = Application.CommandBars.ActiveMenuBar

Set CBC = CB.Controls("Extras")

Set CBCC = CBC.Controls.Add

With CBCC

.Caption = MenüEintrag

.OnAction = "MachWas"

.FaceId = 59

End With

End Sub

 

 

Sub Menüeintrag_löschen()

On Error Resume Next

Application.CommandBars.ActiveMenuBar. _

Controls("Extras").Controls(MenüEintrag).Delete

End Sub

Sub MachWas()

MsgBox "Das Menü wurde erstellt!"

End Sub

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800