Arbeiten im Vollbildmodus? / Verschiedene Arbeitsbereiche

[koter]

Hallo mtemp,

Ich benutze manchmal folgendes Makro um etwas mehr Platz zu haben. Vollbild ist das natürlich nicht.

Code:

Dim an As Boolean

Sub ToolbarsAnAus()
    If an Then
        Call ToolbarsAus
    Else
        Call ToolbarsAn
    End If
    an = Not an
End Sub

Private Sub ToolbarsAus()
    Dim cbAn As Boolean
    For i = 1 To CommandBars.Count
        cbAn = False
        If CommandBars(i).Visible Then
            cbAn = True
            CommandBars(i).Visible = False
        End If
        SaveSetting "CorelDrawToolbarsAus", "Toolbar", CommandBars(i).Name, cbAn
    Next i
End Sub


Private Sub ToolbarsAn()
    Application.MainMenu.Visible = True
    Application.StatusBar.Visible = True
    TBan = GetAllSettings(appname:="CorelDrawToolbarsAus", section:="Toolbar")
    For i = LBound(TBan, 1) To UBound(TBan, 1)
        If TBan(i, 1) Then
            CommandBars(TBan(i, 0)).Visible = True
        End If
    Next i
End Sub

Gruß

Koter