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

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

MS Access - graf do tabulky

Graf ve formuláři

MS Excel - graf do tabulky

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

Hotový příklad pro Excel 2010: Graf do formulare pomoci VBA makra Excel 2010. soubor ve formátu *.xlsm

Č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


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







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