Pr�fen ob ein Men�eintrag vorhanden ist

30.05.2002

 

Vor dem Zugriff auf einen Men�punkt sollte gepr�ft werden
ob dieser �berhaupt vorhanden ist:

Ist ein Men�punkt vorhanden ("Extras")

Function Men�punkt_vorhanden(Bezeichnung) As Boolean
    Men�punkt_vorhanden = False
    For Each MNU In Application.CommandBars _
      ("Worksheet Menu Bar").Controls
        If UCase(MNU.Caption) = UCase(Bezeichnung) Then
            Men�punkt_vorhanden = True
            Exit Function
        End If
    Next MNU
End Function
'Ist der Men�punkt "Extras" vorhanden ?
Sub Testen()
    MsgBox Men�punkt_vorhanden("E&xtras")
End Sub

Ist ein Men�eintrag vorhanden ("Extras" - "Optionen")

Function Men�eintrag_vorhanden(SubMen�, Bezeichnung) As Boolean
    Men�eintrag_vorhanden = False
    For Each MNU In Application.CommandBars _
      ("Worksheet Menu Bar").Controls(SubMen�).Controls
        If UCase(MNU.Caption) = UCase(Bezeichnung) Then
            Men�eintrag_vorhanden = True
            Exit Function
        End If
    Next MNU
End Function
'Ist der Men�eintrag "Optionen..." unter "Extras" vorhanden ?
Sub Testen()
    MsgBox Men�eintrag_vorhanden("E&xtras", "&Optionen...")
End Sub