AW: Kontext Menü bei Befehlsflächen
01.04.2008 11:15:00
Andre´
Hallo Hajo,
danke für den Tipp.
Ich hatte eine Datei mit Makros unter 2003 erstellt, wo ich eine eigene Symbolleiste eingerichtet hatte. Als ich die Datei in Excel 2007 geöffnet und auch die Makros aktiviert hatte, habe ich bemerkt, dass einige Optionen nicht mehr vorhanden waren.
Ich habe mit nachfolgenden Code mein Ziel erreicht:
Public Sub Show_SYSMENU()
Dim xl_hwnd, lStyle
xl_hwnd = FindWindow("xlMain", vbNullString)
If xl_hwnd 0 Then
lStyle = GetWindowLong(xl_hwnd, GWL_STYLE)
lStyle = SetWindowLong(xl_hwnd, GWL_STYLE, lStyle Or WS_SYSMENU)
DrawMenuBar xl_hwnd
End If
End Sub
Ich kann Dir nicht sagen, ob Dein Vorschlag funktioniert. Ich dachte, dass
CommandBars("Cell")
sich auf das Kontext Menü auf Zellen bezieht
Sub KontextMenue_für_Zelle_her()
CommandBars("Cell").Enabled = True 'her
'CommandBars("Cell").Enabled = False 'weg
End Sub
MFG Andre