Excel VBA - 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: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). 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 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.