PDA

Vollständige Version anzeigen : Symbolleiste ein/ausschalten


piano
11.03.2004, 15:13
Blendet eine bestimmte Symbolleiste ein / aus
Public Function SymAusEin(SymbolleistenName)
On Error Resume Next
Set cb = Application.CommandBars.ActionControl (SymbolleistenName)
On Error GoTo 0
If Application.CommandBars(SymbolleistenName).Visible = True Then
Application.CommandBars(SymbolleistenName).Visible = False
Else
Application.CommandBars(SymbolleistenName).Visible = True
End If
End Function