Tweet

Prvky grafu - VBA kódy

Úvodem aneb obsah

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:

• Název grafu
• Popis ssy hlavní i vedlejší
• Legenda grafu
• Tabulka dat
• Popisky dat
• ...
• Ke stažení

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

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

Popis osy hlavní i vedlejší

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ší"

Legenda grafu

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

Tabulka dat

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

Popisky dat

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)

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: 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