Herbers Excel-Forum - das Archiv

Spezialsymbol

Bild

Betrifft: Spezialsymbol
von: Philipp

Geschrieben am: 29.03.2005 10:31:06
Hallo,
ich habe schon oft gelesen, dass man bei Excel in der Symbolleiste Symbole erstellen kann, die sich aktivieren und deaktivieren lassen, d.h. wenn man klickt, bleiben sie eingedrückt, und wenn man nochmal klickt, kommen Sie wieder in den Normalzustand.
Geht das? Weiß jemand eine Anleitung? Ich finde gerade keine...
Danke
Philipp
Bild

Betrifft: AW: Spezialsymbol
von: u_
Geschrieben am: 29.03.2005 10:43:40
Hallo,
ich vermute mal, du meinst einen Toggle-Button (Umschaltfläche). Das ist allerdings ein Steuerelement und nicht in der Symbolleiste.
Gruß
Bild

Betrifft: Suche Toggle-Box für Symbolleiste
von: Philipp
Geschrieben am: 29.03.2005 10:59:26
Gibt es denn die Toggle-Box auch für Menüs/Symbolleisten? Sie wird doch von Excel teilweise auch verwendet (z.B. Autofilter).
Danke für die Antwort
Bild

Betrifft: AW: Suche Toggle-Box für Symbolleiste
von: Hajo_Zi

Geschrieben am: 29.03.2005 11:06:55
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.


Bild

Betrifft: AW: Suche Toggle-Box für Symbolleiste
von: Philipp
Geschrieben am: 29.03.2005 11:16:31
Ach du Schreck, so kompliziert...
Vielen Dank für deine Hilfe!!! Super!!!
 Bild