Menü mit Häckchen erstellen geht, aber nicht das Umschalten

10/11/2008 - 09:24 von Christian Berger | Report spam
Hallo,

ich Habe ein Menü mit einem Hàckchen und dem Text "Spalte ausblenden"
erstellt. Nachdem ich auf diesen Menüpunkt geklickt habe, sollte ein
Hàckchen vor dem Text stehen und als Text jetzt: "Spalte ist ausgeblendet"

Wie geht diese hien. und herschalten bei klicken und nicht erst beim
Neuladen.



Set MenuNeu =
Application.CommandBars(n).Controls.Add(Type:=msoControlPopup,
Before:=iHilfe + 1, Temporary:=True)
With MenuNeu
.Caption = "View"
End With

Set MRef = MenuNeu.Controls.Add(Type:=msoControlButton)
With MRef
.Caption = "Spalte ausblenden"
.Style = msoButtonCaption
.OnAction = "SpalteEinAus"
.State = msoButtonUp
End With

Gruß Christian
 

Lesen sie die antworten

#1 Wolfgang Habernoll
10/11/2008 - 16:18 | Warnen spam
Hallo

"Christian Berger" schrieb im Newsbeitrag
news:gf8r3k$ai2$03$
Hallo,

ich Habe ein Menü mit einem Hàckchen und dem Text "Spalte ausblenden" erstellt.
Nachdem ich auf diesen Menüpunkt geklickt habe, sollte ein Hàckchen vor dem Text
stehen und als Text jetzt: "Spalte ist ausgeblendet"

Wie geht diese hien. und herschalten bei klicken und nicht erst beim Neuladen.

Set MenuNeu = Application.CommandBars(n).Controls.Add(Type:=msoControlPopup,
Before:=iHilfe + 1, Temporary:=True)
With MenuNeu
.Caption = "View"
End With

Set MRef = MenuNeu.Controls.Add(Type:=msoControlButton)
With MRef
.Caption = "Spalte ausblenden"
.Style = msoButtonCaption
.OnAction = "SpalteEinAus"
.State = msoButtonUp
End With



das hin und herschalten könntest du doch in der SUB "SpalteEinAus" erledigen, etwa so.

Sub SpalteEinAus()
With Application.CommandBars(1).Controls("View").Controls(1)
If .Caption = "Spalte ausblenden" Then
''Dein Code Spalte ausblenden
.Caption = "Spalte ist ausgeblendet"
Else
''Dein Code Spalte einblenden
.Caption = "Spalte ausblenden"
End If
End With
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen