Excel VBA - nastavení obrazovky

Úvodem

Pár kódu týkajících se úpravy obrazovky, které se hodí při programování ve VBA.

Práce s lupou

Zmenšení 80%

Sub Lupa_zoom()
    ActiveWindow.Zoom = 80
End Sub

Nastavení zvolené oblasti na maximální plochu okna. Aneb dotaz z pléna a jelikož je zajimavý tak publikuji a doplňuji.

ActiveSheet.Range("A1:J55").Select ActiveWindow.Zoom = True

Text do stavové řádky

Sub TextStavovaRadka()
     Application.Statusbar = "office.lasakovi.com"
End Sub

Smazání textu ve stavové řádce

Application.Statusbar = False

Posuvníky - horizontální vertikální - skrýt/zobrazit

Skrýt

Sub SkryjPosuvniky()
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
End Sub

Nebo skrýt profesionálněji :)

Sub Skryj_posuvniky_2()
     With ActiveWindow
         .DisplayHorizontalScrollBar = False
         .DisplayVerticalScrollBar = False
     End With
End Sub

Zobrazit

Sub Zobraz_posuvniky_2()
     With ActiveWindow
         .DisplayHorizontalScrollBar = True
         .DisplayVerticalScrollBar = True
     End With
End Sub

Popis aplikace

Pokud se Vám nelíbí MS Excel vložte vlastní

ThisWorkbook.Application.Caption = "office.lasakovi.com :) "

Vymazat vlastní text.

ThisWorkbook.Application.Caption = ""

Mřížka - skrýt/zobrazit, barva

Mřížka skrýt

ActiveWindow.DisplayGridlines = False

Mřížka změna barvy

ActiveWindow.GridlineColorIndex = 46

Mřížka původní barva

ActiveWindow.GridlineColorIndex = xlColorIndexAutomatic

Panely nástrojů - skrýt/zobrazit

Skrýt

Application.CommandBars("Standard").Visible = False

Zobrazit

Application.CommandBars("Standard").Visible = True

Řádek vzorců - skrýt/zobrazit

Skrýt

Application.DisplayFormulaBar = False

Zobrazit

Application.DisplayFormulaBar = True

Stavový řádek - skrýt/zobrazit

Skrýt

Application.DisplayStatusBar = False

Zobrazit

Application.DisplayStatusBar = True

Ouška listu skrýt/zobrazit

Skrýt

ActiveWindow.DisplayWorkbookTabs = False

Zobrazit

ActiveWindow.DisplayWorkbookTabs = True

Zahlaví skrýt/zobrazit

Skrýt

ActiveWindow.DisplayHeadings = False

Zobrazit

ActiveWindow.DisplayHeadings = True

Ke stažení

Protože praktická ukázka je lepší než 1000 slov, hotový příklad ke zdrama stažení: Úpravy obrazovky pomocí VBA v MS Excel.

Poznámka: Některé kódy mohou dělat problém v MS Excel 97. Jelikož jsme v 21. století je jednodužší koupit novou verzi Excelu 2010, nebo trochu starší 2007, než ztrácet čas optimalizaci pro starou verzi.

Závěr

Na přání se pokusím doplnit další VBA kódy týkající se nastavení obrazovky MS Excelu.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře