AW: Kontextmenu bei Click auf Chart erweitern
Ramses
Hallo
probier mal das.
Gehört in das Klassenmodul deines Diagrammsheets. Dann steht es nur dort zur Verfügung.
Option Explicit
Const myContext As String = "Chart exportieren"
Private Sub Worksheet_Activate()
'Globale Konstante für den Namen des neuen Menüpunktes
'damit kann auch das "Delete_New_Context_Command" Makro
'auf den gleichen Namen zugreifen, und muss nur an einem Ort geändert werden
'(C) Ramses
Dim myNewContext As Object
'Löschen eines bereits existierenden Menüs
'mit gleichem Namen
On Error Resume Next
Application.CommandBars("Ply").Controls(myContext).Delete
'Commandbars("Ply") ist das Kontextmenü der Tabellenregister
On Error GoTo 0
Set myNewContext = Application.CommandBars("Ply").Controls.Add
With myNewContext
.Caption = myContext
.OnAction = "Export_Chart"
End With
End Sub
Private Sub Worksheet_Deactivate()
'Falls keine mehr existiert oder noch nicht ausgeführt
On Error Resume Next
Application.CommandBars("Ply").Controls(myContext).Delete
On Error GoTo 0
End Sub
".OnAction=" ist der Name deines Makros das du zum exportieren startest.
Gruss Rainer