CommandeBar

Forumthread: CommandeBar
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: CommandeBar

CommandeBar

08.02.2008 12:25:41

serge

Hallo leute mit folgendem Makro kann ich die Menu- sowie Symbolleisten Aus und einblenden:


Sub symbole()
' Tastenkombination: Strg+l
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = Not cb.EnabledNext
End Sub

Ich möchte jetzt aber das nicht reversibel haben, sonder mit einem Makro ausblenden und mit einem zweiten einblenden!


Sub symboleaus()
' Tastenkombination: Strg+l
Dim cb As CommandBar
ausblenden
End Sub


Sub symboleein()
' Tastenkombination: Strg+m
Dim cb As CommandBar
einblenden
End Sub

Ich komme nicht drauf!
Wir hilft mir
danke
Serge

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CommandeBar

08.02.2008 12:38:00

Uwe
AW: CommandeBar

08.02.2008 17:45:54

serge
AW: CommandeBar

11.02.2008 16:37:48

Uwe
AW: CommandeBar

08.02.2008 12:40:00

ransi
Danke: CommandeBar

08.02.2008 17:41:00

serge

AW: CommandeBar

08.02.2008 12:38:00

Uwe

Hi Serge,
so kannst Du das mit EINEM Makro machen (wenn ein dann aus, wenn aus dann ein):


Sub symbolleisten()
Dim cb As CommandBar
For Each cb In Application.CommandBars
Select Case cb.Enabled
Case Is = True
cb.Enabled = False
Case Is = False
cb.Enabled = True
End Select
Next
End Sub

Gruß
Uwe
(:o)

AW: CommandeBar

08.02.2008 17:45:54

serge

Hallo Uwe
danke für deine Antwort, aber das "wenn ein dann aus, wenn aus dann ein" das hatte ich ja schon!
Nue etwas kürzer:


Sub symbole()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = Not cb.Enabled
Next
End Sub

Ransi hat die richtige Lösung für mich.
Danke trotzdem!
Serge

AW: CommandeBar

11.02.2008 16:37:48

Uwe

Hi Serge,
sorry da hatte ich gepennt (:-(
Gruß
Uwe
(:o)

AW: CommandeBar

08.02.2008 12:40:00

ransi

HAllo Serge
Dann einfach so:

Option Explicit
Dim cb As CommandBar

Sub ein()
For Each cb In Application.CommandBars
cb.Enabled = True
Next
End Sub

Sub aus()
For Each cb In Application.CommandBars
cb.Enabled = False
Next
End Sub

Wenn dir dein Excel aber abschmiert während die CommandBars ausgeblendet sind, hast du ein massives Problem.
ransi

Danke: CommandeBar

08.02.2008 17:41:00

serge

Hallo Ransi
Genau wie ich es mir vorgestellt habe!
Ich habe mein Makro gedreht und gewendet, irgendwie stand ich mir auf dem Kopf oder auf dem Schwanz!
Danke Serge

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!