|
Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Potřebujete-li v sešitě automaticky zvětšit náhledy grafů.
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ě.
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.
V článku předpokládám tyto znalosti:
V základních bodech jak na to, pokud nechcete sledovat video.
Nejprve si připravte tabulku a z ní vytvořte graf, sešit uložte jako soubor s makry (*.xlsm).
Máte-li grafy vytvořeny, můžete ze souboru níže překopírovat makro a vložit do modulu.
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)
V tomto kroku přiřadíte jednotlivých tlačítkům odkaz na makro, které jste zkopírovaly a vložily do modulu.
Jen poznámka, máte-li více grafu, musí mít každé minitlačítko unikátní jméno.
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
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
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
.
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: 19.09.2020 11:06
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.
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ů.
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
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 - 2021 |