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
|