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

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>





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