AW: Suche Toggle-Box für Symbolleiste
29.03.2005 11:06:55
Hajo_Zi
Hallo Philipp,
das ist keine Toggle Box
Option Explicit
Dim POP1 As Object
Dim CBB As Object
Dim CB As Object
Public Const MName As String = "Ralf Sögel"
' Menü mit Haken vor Auswahl
Sub Beisielmenu()
On Error Resume Next
'falls vorhanden, erstmal vorsichtshalber löschen
Application.CommandBars(MName).Delete
' *** Position ergänzt
Set CB = CommandBars.Add(MName, Position:=msoBarTop)
Set CBB = CB.Controls.Add(msoControlPopup)
With CBB
.Caption = "Menü " & MName
.Width = 120
.BeginGroup = True
End With
Set POP1 = CommandBars(MName).Controls(1)
With POP1.CommandBar.Controls.Add(Before:=1, Type:=msoControlButton)
.Caption = "Grafiksymbolleiste ein"
.OnAction = "eins_zwei"
.FaceId = 0
.BeginGroup = True
End With
CB.Visible = True
End Sub
Private Sub eins_zwei()
With CommandBars(MName).Controls(1).Controls(1)
If .State = msoButtonDown Then
.State = msoButtonDown = False
.FaceId = 0 ' ohne Zeichen
.Caption = "Grafiksymbolleiste ein"
Else
.State = msoButtonDown = True
.FaceId = 1087 ' Haken vor Zeile
.Caption = "Grafiksymbolleiste aus"
End If
Application.CommandBars("Picture").Visible = .FaceId = 1087 ' Grafiksymbolleiste ein/ausblenden
End With
End Sub
Sub löschen()
On Error Resume Next
Application.CommandBars(MName).Delete
End Sub
' von Ralf Sögel
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.