Jste zde: Úvodní stránka » excel » vba-application » minimalizovat-maximalizovat-excel-vba

Minimalizovat maximalizovat Excel - VBA

Videokurzy Excel

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

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Jak pomoci VBA v Excelu minimalizovat či maximalizovat okno nebo měnit jeho rozměry.

Minimalizovat okno Excelu

Zmenší aktivní okno Excelovského sešitu.


ActiveWindow.WindowState = xlMinimized

Minimalizovat okno a zobrazit formulář

Zmenší aktivní okno Excelovského sešitu a poté zobrazit formulář.


ActiveWindow.WindowState = xlMinimized
UserForm1.Show

Minimalizovat celý Excel

Zmenší celou Excelovskou aplikaci.


Application.WindowState = xlMinimized

Minimalizovat okno Excelu - zobraz formulář

Zmenší celou Excelovskou aplikaci a zobrazí formulář. Můžeme použít pokud spouštíme aplikaci excelu a nechceme aby uživatel viděl Excel, ale pouze náš formulář.


Application.WindowState = xlMinimized
UserForm1.Show

Maximalizovat okno Excelu

Zvětší aktivní okno přes Excelovskou aplikaci.


ActiveWindow.WindowState = xlMaximized

Maximalizovat okno Excelu

Maximalizuje Excelovskou aplikaci.


Application.WindowState = xlMaximized

Závěrem

Ať kódy slouží...

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

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

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

Přemek

Přidáno: 11.04.12 10:33

Dobrý den Mám problém s nastavením rozměrů okna excelu. Potřebuji totiž aby se mi po spuštění zobrazilo okno userform a při tom se minimalizovalo okno excelu(nebo alespoň abych nastavil jeho rozměry tak, aby se schovalo za okno userform)

Pavel Lasák

Přidáno: 11.04.12 21:22

To Přemek: Možný způsob řešení Application.Visible = False

Premek

Přidáno: 12.04.12 01:51

Mockrát děkuji za radu, přesně to jsem potřeboval. ale nastává tady jeden malý problém, když pak vypnu UserForm "křížkem" nevypne se mi celý excel. Neměl by jste prosím vás typ na to jak ukončit excel při stisknutí křížku na UserForm?

Pavel Lasák

Přidáno: 12.04.12 17:24

To Premek: Třeba pomůže: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.DisplayFullScreen = False Application.Quit End Sub Vychází z kódu který jsem našel na internetu. Potřeboval jsem opačný požadavek, jak zajistit, aby formulář nešel zavřít křížkem ... Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then MsgBox "Dostal jsem tě Donalde. Nelze zavřít křížkem." Cancel = True End If End Sub