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

Jste zde: Úvodní stránka » excel » vba-grafy » zvetsovat-grafy-excel-vba

Zvětšovat grafy - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Potřebujete-li v sešitě automaticky zvětšit náhledy grafů.

Úvodem

Autorem originálního článku Zoom on Excel Charts odkaz na jiný server je Jon Acampora. Na jeho webu www.excelcampus.com odkaz na jiný 

server 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í.

Zvětšování grafů: Microsoft Excel VBA

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 odkaz na jiný server 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 odkaz na jiný server.

Mnou upravený soubor si můžete stáhnout Zvětšení grafů Excel pomocí VBA soubor ve formátu *.xlsm - 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 soubor ve formátu *.xls.

Závěrem

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

Poděkování: Poděkování Jon Acampora za možnost zveřejnění na tomto webu. Jon thank thank you very much.

Článek byl aktualizován: 01.11.2014 14:10

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, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 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 také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek 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


Jon Acampora

Přidáno: 15.07.13 19:40

It looks great! I feel honored that you wanted to translate the article and hope your Czech readers find it useful. I like your use of the code boxes to display the VBA code. I'm going to start using that on my site. Thanks again, Jon







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

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

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.