Neues Kontextmenü erstellen

302003




Mit folgendem Makro wird eine neues Kontextmenü erstellt:

Sub neues_kontextmenue()
    Dim NeuesMenü As CommandBarButton
    With CommandBars("Cell")
        'Bestehendes Menü löschen
        Do While .Controls.Count > 0
            On Error Resume Next
            .Controls(1).Delete
        Loop
        'Neues Menü erstellen
        Set NeuesMenü = .Controls.Add(msoControlButton)
        With NeuesMenü
            .Caption = "&Neues Menü"
            .OnAction = "Makro1"
        End With
    End With
End Sub



Dieses Makro wird ausgeführt, wenn der neue Kontextmenüpunkt ausgewählt wird.

Sub Makro1()
MsgBox "Der neue Menüpunkt wurde gewählt!"
End Sub



Folgendes Makro setzt das Kontextmenü in den Ursprungszustand zurück:

Sub reset()
Application.CommandBars("Cell").reset
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