Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-triky » vba-excel-nastaveni-obrazovky

Excel VBA - nastavení obrazovky

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak provést některé úkony ve VBA?

Ú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. soubor ve formátu *.xls

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

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

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ů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>





Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2020 |