Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Jak dostat graf do formuláře?
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.
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.
Graf
Graf ve formuláři
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
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
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
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.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 - 2025 |