AW: Pulldown Menueeintraege disablen enablen?
21.08.2006 14:17:51
Horst
Hey !
Also das control um das es geht sieht so aus:
-------------------------------------
Sub Menue()
'Setzen des Menues in der Menuelieste der PopUp-Menues
Dim i As Integer
Dim i_hilfe As Integer
Dim Menue As CommandBarControl
Dim InhalteLoeschen As CommandBarControl
Dim SpeichernUnter As CommandBarControl
Dim Gutachtenstarten As CommandBarControl
Dim Dokumentationstarten As CommandBarControl
Dim Nullwerteanzeigen As CommandBarControl
Dim Finaziellerbedarfeinblenden As CommandBarControl
Dim InhalteLoeschenActiveSheet As CommandBarControl
Dim Info As CommandBarControl
On Error GoTo Fehler
i = Application.CommandBars(1).Controls.Count
i_hilfe = Application.CommandBars(1).Controls(i).Index
Set Menue = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
Before:=i_hilfe, Temporary:=True)
Menue.Caption = "Menue"
Set InhalteLoeschen = Menue.Controls.Add _
(Type:=msoControlButton)
With InhalteLoeschen
.Caption = "Alle Inhalte löschen"
.OnAction = "AlleInhalteLoeschen"
.BeginGroup = True
End With
Set InhalteLoeschen = Menue.Controls.Add _
(Type:=msoControlButton)
With InhalteLoeschen
.Caption = "Inhalte löschen akuelle Seite"
.OnAction = "AlleInhalteLoeschenActiveSheet"
.BeginGroup = True
End With
Set Info = Menue.Controls.Add _
(Type:=msoControlButton)
With Info
.Caption = "Info"
.OnAction = "infoAnzeigen"
.BeginGroup = True
End With
Set SpeichernUnter = Menue.Controls.Add _
(Type:=msoControlButton)
With SpeichernUnter
.Caption = "Speichern unter..."
.OnAction = "mappespeichernals"
.BeginGroup = True
End With
Set Gutachtenstarten = Menue.Controls.Add _
(Type:=msoControlButton)
With Gutachtenstarten
.Caption = "Gutachten erstellen..."
.OnAction = "StartGutachten"
.BeginGroup = True
End With
Set Finaziellerbedarfeinblenden = Menue.Controls.Add _
(Type:=msoControlButton)
With Finaziellerbedarfeinblenden
.Caption = "Finaziellen Bedarf ermitteln..."
.OnAction = "StartTabelleFinaziellerBedarf"
.BeginGroup = True
End With
Set Dokumentationstarten = Menue.Controls.Add _
(Type:=msoControlButton)
With Dokumentationstarten
.Caption = "Hilfe/ Dokumentation ..."
.OnAction = "pdfdokuaufruf"
.BeginGroup = True
End With
Set Nullwerteanzeigen = Menue.Controls.Add _
(Type:=msoControlButton)
With Nullwerteanzeigen
.Caption = "Nullwerte anzeigen..."
.OnAction = "Nullwerteanzeigen"
.BeginGroup = True
End With
GoTo Ende
Fehler:
MsgBox "An error has occurred.. Menue"
Ende:
End Sub
------------------------------------------------------------
Und jetzt seid ihr wieder drannnnnnnnnnn...
Gruss
horst