Re: Makro ins Menü der rechten Maustaste
10.07.2002 09:49:39
Otto Ecker
Hallo Marcus,Option Explicit
Public cBar As CommandBar
Public cBarVorhanden As Boolean
Public btnKontext As CommandBarButton
Public Const cBarKontextName As String = "Mein Popup-Menue"
'-------- Kontext-Menü zur Bearbeitung von Zellen ändern --------
'Zum Kontext-Menü einen neuen Button hinzufügen und diverse
' vorhandene Buttons deaktivieren:
Sub KontextMenueAendern()
On Error Resume Next
'Kontext-Menü zur Bearbeitung von Zellen:
Set cBar = Application.CommandBars("Cell")
'CommandBarButtons deaktivieren:
cBar.Controls("Ausschneiden").Enabled = False
cBar.Controls("Kopieren").Enabled = False
cBar.Controls("Einfügen").Enabled = False
cBar.Controls("Inhalte einfügen...").Enabled = False
'Neuen CommandBarButton hinzufügen:
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "Mein neuer Button"
.FaceId = 59
.BeginGroup = True
.OnAction = "NeuerKontextMenueBtnOnAction"
End With
End Sub
'Änderungen im Kontext-Menü zur Bearbeitung von Zellen
' rückgängig machen:
Sub KontextMenueAenderungRueckgaengig()
Application.CommandBars("Cell").Reset
End Sub
In den Beispielen von Hans findest Du weitere Lösungen
Gruß Otto