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

Nový videokurz na Seduo: Excel pro začátečníky

     

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

Excel VBA - nastavení obrazovky


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: 01.11.2014 14:41

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

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

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře


Osi

Přidáno: 31.03.12 10:17

Ahoj, nevíš jak automaticky přizpůsobit ZOOM

Pavel Lasák

Přidáno: 01.04.12 09:03

To Osi: Co myslíš automatickým přizpůsobením ZOOM? Ať vidím všechny obsazené buňky?

Osi

Přidáno: 04.04.12 11:45

Mám určitou oblast na listu, kterou potřebuji vidět. Na menších monitorech není vidět všechno a na větších zase moc. Už si nevím rady.

Pavel Lasák

Přidáno: 04.04.12 16:16

To Osi: označím oblast a zvětším viz přiklad ActiveSheet.Range("A1:J55").Select ActiveWindow.Zoom = True

Lukáš

Přidáno: 04.08.12 21:08

A jak skrýt Pás karet?

Pavel Lasák

Přidáno: 05.08.12 07:16

To Lukáš: VBA kód Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Pro zobrazení je kód: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Nápověda z google :) protože klávesová zkratka Ctrl+F1 SendKeys "^{F1}" nějak nefungovala

Lukáš

Přidáno: 05.08.12 14:49

Díky moc. Už to dobře funguje ;)

Jiří

Přidáno: 25.06.13 09:16

Dobrý den, v souboru ke stažení vám nefunguje tlačítko pro opětné zobrazení řádku pro vzorce.

Pavel Lasák

Přidáno: 25.06.13 21:49

To Jiří: Opraveno.

Lucka

Přidáno: 08.11.13 21:07

Ahoj, prosím, nemáte někdo kód na podmíněné skrytí listu? Mám na mysli např. "pokud je v buňce B4 "A", skryje se List3" nevíte někdo prosím? Děkuji!

Pavel Lasák

Přidáno: 09.11.13 08:31

To Lucka: Má se skrývat list do kterého se zapisuje ihned po zadání hodnoty?

Pavel Lasák

Přidáno: 10.11.13 14:52

To Lucka: Jelikož nemám odpověď, doporučil bych využít událost Worksheet_Change pro list ve kterém má fungovat: Private Sub Worksheet_Change(ByVal Target As Range) End Sub pak zadat příslušné podmínky: If Range("B4").Value = "A" Then ' skryj List3 Sheets("List3").Visible = 0 End If nekontroluje, zda List3 existuje.

Bob

Přidáno: 10.11.14 22:38

Existuje příkaz jak nastavit výchozí kartu v pásu karet (vytvořil jsem si vlastní a chci aby byly aktivní při otevření sešitu.

Petr

Přidáno: 22.04.15 15:53

Skvělé stránky :) Chci se zeptat... ve stavovém řádku se zobrazuje různé užitečné info jako počet buněk (s čís.hodnotami), součet a mj. průměr. Dá se nějak změnit zobrazení průměru na více desetinných míst? (místo např. 0,94 / 94 %, bych ocenil přesnější zobrazení o další 2 místa). Děkuji moc za odpověď.

Boris

Přidáno: 13.05.15 09:12

Dobrý den, navázal bych na starší dotaz od Osi (Ahoj, nevíš jak automaticky přizpůsobit ZOOM) Odpověděl jste: ActiveSheet.Range("A1:J55").Select ActiveWindow.Zoom = True To je ok, ale jak zjistit implicitně oblast, ve které jsou všechny obsazené buňky? Někdy to bude ("A1:J55"), ale jiny třeba ("A1:K40"). A pokaždé chci zobrazit maximální zoom. Díky předem.

Lenka

Přidáno: 19.01.16 13:34

Dobrý den, nevíte někdo, zda je možné při zobrazení nějak skrýt znaménko +, které značí seskupené buňky?


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)






Sdílejte

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

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

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 - 2016 | 15910

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.