Tweet

Zvětšovat grafy - Excel VBA

Úvodem

Autorem originálního článku Zoom on Excel Charts je Jon Acampora. Na jeho webu www.excelcampus.com má dalších zajímavé návody. Tímto Jonovi děkuji za možnost článek prezentovat v češtině.

Odkud čerpám

Máte-li v sešitě z důvodu přehlednosti malé grafy, mnohdy se hodí mít možnost klikem na tento graf jej zvětšit (souhrnný přehled a zároveň možnost detailního pohledu), aby byly lépe vidět trendy případně další podrobnosti, které jsou uvedené na "velkém" grafu. Samozřejmostí, aby druhým klikem došlo ke zmenšení dočasně zvětšeného grafu.

Jak funguje? Makro (VBA kód) zareaguje na klik ikony a příslušný graf zvětší/zmenší. Nejlépe je vidět na animovaném gifu. Na konci článku je ukázkový soubor ke stažení.

V ukázce je možnost zvolit velikost velkého grafu zadáním % v příslušných buňkách (ale klidně je dejte hodnoty napevno do VBA).

Poznámka: v originálního článku Zoom on Excel Charts má autor Jon Acampora k dispozici video a angličtině. V mém článku budete o video bohužel ochuzeni. Jeho video je velice názorné a pochopitelné i když angličtinu neovládáte.

ffffkksdhddaaevccfaaaaaasssassb dddd

Předpokládané znalosti

V článku předpokládám tyto znalosti:

• Tvorba tabulek a grafů
• Základy VBA - vložit modul

Jak na to?

V základních bodech jak na to, pokud nechcete sledovat video.

Tabulky a grafy

Nejprve si připravte tabulku a z ní vytvořte graf, sešit uložte jako soubor s makry (*.xlsm).

Zkopírovat makro do modulu

Máte-li grafy vytvořeny, můžete ze souboru níže překopírovat makro a vložit do modulu.

Zkopírovat (vložit) tlačítka zvětšení

Do grafu dále vložte tlačítko pro zvětšení/zmenšení. To +/- je vloženo jako text. Vložte jen jedno (další musí mít unikátní jméno a přiřazený VBA kód)

Přiřadit tlačítku makro

V tomto kroku přiřadíte jednotlivých tlačítkům odkaz na makro, které jste zkopírovaly a vložily do modulu.

Tlačítko zkopírovat do dalších grafů

Jen poznámka, máte-li více grafu, musí mít každé minitlačítko unikátní jméno.

Úpravy kódu

Úpravy velikosti zvětšeného grafu

Pokud chcete nastavit pevnou hodnotu zvětšení, stačí upravit řádek v kódu:

V originále se hodnoty pro zvětšení berou z buněk s definovanými názvy rngZoomWidth a rngZoomHeight.

dZoomInWidth = ActiveSheet.[rngZoomWidth].Value '<-proměnná hodnota z buňky dZoomInHeight = ActiveSheet.[rngZoomHeight].Value '<-proměnná hodnota z buňky

Stačí změnit na:

dZoomInWidth = 5 'pevná hodnota dZoomInHeight = 3

Změna textu v ikoně

Pokud se vám nelíbí intuitivní popisky v ikonkách pro zvětšení/zmenšení (+/-), můžete změnit:

strZoomInText = "+" '<-Lze změnit strZoomOutText = "-" '<-Lze změnit

Ke stažení

Originální soubor je k dispozici v článku: Zoom on Excel Charts .

Mnou upravený soubor si můžete stáhnout Zvětšení grafů Excel pomocí VBA - pro Excel 2007 (2010) ke stažení zdarma. Soubor využívá makra. Případně verze pro Excel 2003 Zvětšení grafů Excel pomocí VBA .

Závěrem

Pro případná doplnění, náměty jsou k dispozici komentáře.

Článek byl aktualizován: 19.09.2020 11:06

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