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

Jste zde: Úvodní stránka » excel » vba-grafy » prvky-grafu-VBA-kody
Microsoft Excel logo

Prvky grafu - VBA kódy

Videokurzy Excel

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

Úvodní článek do úpravy prvků v grafů využitím VBA, aneb seznam prvků grafu a odkazy na články popisující jak pro daný prvek provést pokročilejší úpravy.

Úvodem aneb obsah

Grafy Excel VBA

Jelikož se jedná o základní přehled a článek slouží i jako rozcestník. Proto je článek rozdělen do jednotlivých kapitol:

Poznámka: Článek bude dále rozšiřován a doplňován, primárně na základě mých potřeb.


Název grafu

Grafy Excel VBA

Jak vložit, nebo odebrat název grafu v Excel. Předpokládám, že graf již máte vložen. Vkládat budu do grafu 1. a zapíšeme námi požadovaný název.


Vložit název grafu

Set cht = ActiveSheet.ChartObjects(1).Chart cht.HasTitle = True cht.ChartTitle.Text = "Název"

nebo pokud se graf jmenuje MujGraf

ActiveSheet.ChartObjects("MujGraf").Activate ActiveChart.ChartTitle.Select Selection.Characters.Text = "Text"

Odebrat název grafu

Set cht = ActiveSheet.ChartObjects(1).Chart cht.HasTitle = False

Podrobnější informace v přípravě.

Popis osy hlavní i vedlejší

Grafy Excel VBA

Jak vkláldat popisky osy v grafu. V Excel jsou k dispozici až 4 osy (zaleží na typu grafů a jeho nastavení):

  • Hlavní vodorovná
  • Hlavní svislá
  • Vedlejší vodorovná
  • Vedlejší svislá

Přidávat budeme do již vloženého prvního grafu. Přidáme popis hlavní a vedlejší osy.


Hlavní vodorovná osa

cht.Chart.Axes(xlCategory, xlPrimary).HasTitle = True cht.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Osa hlavni"

Hlavní svislá osa

cht.Chart.Axes(xlValue, xlPrimary).HasTitle = True cht.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Osa vedlejší"

Podrobnější informace o nastavení os využitím VBA jsem již sepsal zde. Další informace jsou v přípravě.

Legenda grafu

Grafy Excel VBA

Jak přidat legendu grafu (včetně možností umístění nahoře/dole...). Opět předpokládám, že se bude přidávat do grafu 1, který se již na listě nachází.


Skrýt legendu

Set cht = ActiveSheet.ChartObjects(1).Chart cht.HasLegend = False

Zobrazit legendu

Set cht = ActiveSheet.ChartObjects(1).Chart cht.HasLegend = True

Změna barvy legendy modrá

cht.Chart.Legend.Font.ColorIndex = 5

Vložení grafu s legendou

Dim rng As Range Dim cht As Object Set rng = ActiveSheet.Range("B3:D19") Set cht = ActiveSheet.ChartObjects.Add(50, 40, 400, 200) cht.Chart.SetSourceData Source:=rng cht.Chart.ChartType = xlLineStacked cht.Chart.HasLegend = True cht.Chart.Legend.Font.ColorIndex = 5

Podrobnější informace v přípravě.

Tabulka dat

Grafy Excel VBA

Jak ke grafu doplnit tabulku dat a následně ji podle přání upravit. Předpokládám, že tabulka se bude přidávat do již vloženého grafu (1).


Přidání tabulky dat

Set cht = ActiveSheet.ChartObjects(1).Chart cht.HasDataTable = True

Skrytí (odebraní) tabulky dat

Set cht = ActiveSheet.ChartObjects(1).Chart cht.HasDataTable = False

Podrobnější informace v přípravě.

Popisky dat

Grafy Excel VBA

Jak prakticky na popisky dat v Excel. Předpokládám, že máte vybrán graf, do kterého budete popisky vkládat (v ukázce graf 1) a také pro kterou datovou řadu budete chtít přidat (v ukázce 1).

Přidání popisu dat - Nahoře


Set cht = ActiveSheet.ChartObjects(1).Chart cht.FullSeriesCollection(1).Select cht.SetElement (msoElementDataLabelTop)

Odebrání popisu dat

Set cht = ActiveSheet.ChartObjects(1).Chart cht.FullSeriesCollection(1).Select cht.SetElement (msoElementDataLabelNone)

Podrobnější informace v přípravě.

Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor ke stažení zdarma v přípravě. Soubor bude využívat makra


Závěrem

Článek je rozpracován, pokud vás napadne zajímavý VBA kód (týkající se prvků grafů), který bych mohl přidat, můžete jej zmínit v komentářích.

Článek byl aktualizován: 15.10.2016 19:43

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


BS

Přidáno: 18.10.16 09:31

Dobrý den, mám bodový graf s velkým počtem bodů vytvořený makrem. Je možné, aby se při kliknutí na určitý bod v grafu zobrazil jeho popisek a hodnoty x a y? Ať už přímo v grafu, kde by stačil asi popisek, nebo kdekoliv v sešitě?







Sdílejte

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

Nové články


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 - 2018 | 2729

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