Jste zde: Úvodní stránka » excel » vba-triky » vba-excel-graf-do-formulare

Excel VBA - graf do formuláře

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 dostat graf do formuláře?

Úvodem

Jak dostat graf do formuláře v MS Excelu? Na internetu jsem nalezl makro, jak uložit graf do obrázku. Tento nápad se mi zalíbil. Provedu uložení obrázku do souboru, tento pak načtu do formuláře.

Jak na to?

Zobrazení grafu ve formuláři s využitím VBA. Tento kód můžete volat třeba při aktivaci formuláře.




    Dim graf As ChartObjects					
	
    Set Graf = Sheets("List1").ChartObjects(1).Chart 		

	' prostor pro rozmery zde doplnit změnu rozměru (viz dále)  

    NazevObrazku = "graf.gif" 					

    Graf.Export Filename:=NazevObrazku, FilterName:="GIF"	

    Image1.Picture = LoadPicture(NazevObrazku)

Poznámky:
Do NazevObrazku lze uložit i cestu kam se má obrázek aktuálně ukládat.

Ukázka

Graf

Graf ve formuláři

Další rozšíření

Pokud potřebujete graf zobrazit větší (menší) než je v Excelu, použijte následující kód a původní makro doplňte (do řádku: zde doplnit změnu rozměru). Jen je třeba po uložení obrázku vrátit grafu původní rozměry.


    Graf1.Parent.Width = 830		

    Graf1.Parent.Height = 450

Ke stažení

Hotový příklad ke stažení: Graf do formulare pomoci VBA makra.

Hotový příklad pro Excel 2010: Graf do formulare pomoci VBA makra Excel 2010.

Č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 - 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

Kuba

Přidáno: 22.03.12 18:52

Dobrý den, mám nové Office 2010.Formulář mám udělaný v 2007. Používám ve svém formuláři vkládání grafu podle tohoto návodu. V Office 2007 jde vše hladce, avšak v 2010 nahlásí chybu =>Run-time error 481 : Invalid picture. Liší se nějak kód, nebo je nutná nějaká změna? A je VBA vždy kompatibilní s ostatními verzemi office? Mockrát děkuji:)

Pavel Lasák

Přidáno: 23.03.12 16:10

To Kuba: Ukázkový příklad ke stažení mi funguje jak v Excel 2003, Excel 2007 tak MS Excel 2010. Pro jistotu jsem ještě přidal souboru ke stažení pro verzi Excel 2010(2007) s podporou maker.

Tomáš

Přidáno: 24.05.12 16:44

Dobrý den, Chtěl bych se Vás zeptat, není někde podrobnější návod jak vytvořit graf ve formuláři??Děkuji za odpověď.

Tomáš

Přidáno: 24.05.12 16:52

Dobrý den, Nebo jestli by jste mi neporadil od začátku jak mám vytvořit graf ve formuláři. Mám v diplomové práci udělat graf ve formuláři, ale nevím jak na to. Budu rád za vaši radu. Děkuji za odpověď.

Pavel Lasák

Přidáno: 24.05.12 17:46

To Tomáš: o podrobnějšímm návodu nevím, soubor jež je ke stažení Vám nepostačí? Nebo chcete popsat jak vytvořit samostatný graf, který se pak vkláda do formuláře?

Tomáš

Přidáno: 24.05.12 18:19

Mě jde spíš o to, když mám v Excelu vytvořený graf, tak jak to udělám, aby byl jako obrázek?? Příkaz NazevObrazku = "graf.gif" a já nevím, jak mám udělat ten název, teda spíš kde ho mám uvést, aby se graf načítal. Na formulář přidám ovládací prvek Image a dál nevím.

Martina

Přidáno: 25.04.13 13:47

Dobrý den, chtěla bych obdobným způsobem vytisknout oblast (range) a nevím, co přesně v kódu změnit. Děkuju za případnou pomoc

Jan Polák

Přidáno: 08.04.15 09:32

Díky za návod. Mně ale fungoval až ve chvíli, kdy jsem místo "Dim graf As ChartObjects" dal "Dim graf As Object". Třeba to někomu pomůže.

Jan Polák

Přidáno: 14.05.15 13:11

To Kuba (problém s RunTime 481): Podívej se na http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_27817737.html