VBA Excel: vytvoření grafu na jednom listu

Microsoft Excel má mnoho nástrojů pro vizualizaci dat a jedním z nejvýkonnějších je vytváření grafů. Diagramy vám umožňují názorně prezentovat informace, porovnávat různé hodnoty a identifikovat vzorce. Jsou zvláště užitečné při analýze velkého množství dat nebo při zobrazování trendů v čase.

K vytváření grafů v Excelu lze použít programovací jazyk VBA (Visual Basic for Applications). VBA je nástroj, který vám umožňuje automatizovat akce v Excelu, například vytvářet a pracovat s grafy.

Chcete-li začít s VBA, musíte v Excelu otevřít Editor Visual Basic. K tomu můžete použít příkaz vývojář - > Editor Visual Basic nebo stisknout kombinaci kláves Alt + F11. Po otevření editoru můžete vytvořit makra, která provedou potřebné kroky, včetně vytváření diagramů.

Chcete-li vytvořit graf na listu VBA, musíte použít objekt "Chart". K tomuto objektu lze přistupovat pomocí vlastnosti" Charts "objektu " Worksheet". Chcete-li například vytvořit barchart na aktivním listu, můžete použít následující kód:

Sub CreateBarChart()

Dim ws As Worksheet

Dim cht As ChartObject

Set ws = ActiveSheet

Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=300, Height:=200)

cht.Chart.ChartType = xlColumnClustered

With cht.Chart

.SetSourceData Source:=ws.Range("A1:B10")

.HasTitle = True

.ChartTitle.Text = "Sales by Month"

End With

End Sub

V tomto příkladu vytvoříme nový barchart na aktivním listu aplikace Excel a označíme jeho polohu a rozměry. Poté nastavíme typ diagramu (xlcolumnclustered-seskupený sloupec). Dále uvedeme zdroj dat pro diagram (rozsah od A1 do B10) a přidáme záhlaví.

VBA Excel: vytvoření grafu na listu

Ve Visual Basic for Applications (VBA) lze pro Excel použít výkonné nástroje k vytváření a správě grafů přímo na listu. Vytvoření grafu pomocí VBA vám umožní automatizovat a zjednodušit proces práce s daty a vizualizací.

Chcete-li vytvořit graf na listu pomocí VBA, musíte postupovat podle následujících kroků:

1. Vyberte buňky, které obsahují data pro graf.
2. Otevřete Editor VBA stisknutím kombinace kláves ALT + F11.
3. V editoru VBA vyberte list, na kterém bude graf umístěn.
4. Napište kód VBA pro vytvoření grafu.
5. Spusťte kód stisknutím klávesové zkratky F5.

Příklad kódu VBA pro vytvoření grafu na listu:

Sub СоздатьДиаграмму()Dim ЛистДиаграмм As WorksheetDim Диаграмма As ChartObjectDim ДиапазонДанных As Range' Установить ссылку на лист, на котором будет находиться диаграммаSet ЛистДиаграмм = ThisWorkbook.Worksheets("Лист1")' Задать диапазон данных для диаграммыSet ДиапазонДанных = ЛистДиаграмм.Range("A1:B5")' Создать диаграмму на листеSet Диаграмма = ЛистДиаграмм.Shapes.AddChart.Chart' Задать тип диаграммыДиаграмма.ChartType = xlColumnClustered' Задать источник данных для диаграммыДиаграмма.SetSourceData ДиапазонДанных' Задать название диаграммыДиаграмма.HasTitle = TrueДиаграмма.ChartTitle.Text = "Моя диаграмма"End Sub

V tomto příkladu je vytvořen sloupcový diagram na listu List1 pomocí dat z rozsahu A1: B5. Graf také dostává název "Můj diagram".

Po spuštění kódu bude graf vytvořen na vybraném listu. Pomocí příslušných vlastností a metod objektu grafu můžete konfigurovat různé možnosti grafu, jako je typ, styl, měřítko a další.

Vytváření a správa grafů na listu pomocí VBA umožňuje flexibilní přizpůsobení zobrazení dat a jejich automatické zpracování. Je to užitečný nástroj pro zpracování velkého množství dat a vytváření profesionálních sestav a dashboardů v Excelu.

Příprava na práci

Než začnete vytvářet graf na listu v aplikaci VBA Excel, musíte provést několik předběžných kroků:

1. Otevřít Editor VBA: V Excelu vyberte kartu Vývojář a klikněte na tlačítko Upravit VBA. Tím se otevře editor VBA, ve kterém bude probíhat psaní a úpravy kódu.
2. Vybrat list: V levém podokně editoru VBA vyberte list, na kterém chcete vytvořit graf. Kliknutím na něj jej zvýrazníte.
3. Napsat kód: V pravém podokně editoru VBA začněte psát kód a vytvořte graf. K vytvoření a přizpůsobení grafu použijte různé metody a vlastnosti objektů aplikace Excel.
4. Spustit kód: Když je kód napsán, klikněte na tlačítko "Spustit" na panelu nástrojů editoru VBA nebo stiskněte klávesovou zkratku "F5". Kód bude proveden a graf bude vytvořen na vybraném listu.

Po dokončení těchto kroků budete moci vytvářet a konfigurovat grafy na listech v aplikaci VBA Excel pomocí kódu, který jste napsali.

Výběr typu grafu

Při vytváření grafu v listu aplikace Excel musíte vybrat typ grafu, který nejlépe odpovídá vašim datům a cílům. Excel obsahuje několik typů grafů, z nichž každý je vhodný pro určitý typ dat a analýzy.

Pro výběr typu grafu můžete použít vestavěné funkce aplikace Excel nebo napsat vlastní makro v jazyce VBA. V obou případech je třeba vzít v úvahu funkce Prezentace dat a jejich mapování v grafu.

Níže je tabulka popisující hlavní typy diagramů, která vám pomůže rozhodnout se pro výběr:

Výběr typu grafu závisí na tom, jaké informace chcete předat a jaký efekt chcete dosáhnout. Neváhejte experimentovat s různými typy diagramů a vyberte si nejvhodnější možnost pro vaši práci.

Po výběru typu grafu můžete začít vytvářet samotný graf na listu Excel pomocí VBA.

Vytvoření a přizpůsobení grafu

Při vytváření grafu na listu aplikace Excel pomocí kódu VBA můžete použít různé možnosti a nastavení, abyste získali požadovaný výsledek. Zde jsou některé z nich:

• Typ grafu: Excel poskytuje různé typy diagramů, jako jsou sloupcové, kruhové, lineární atd. V kódu VBA můžete zadat požadovaný typ grafu pomocí vlastnosti ChartType .
• Umístění a rozměry grafu: Pomocí vlastností Top , Left, Width a Height můžete určit umístění a Velikosti Grafu Na listu.
• Zdroj dat: Chcete-li vytvořit graf, musíte zadat zdroj dat. To lze provést pomocí vlastnosti SetSourceData zadáním rozsahu buněk na listu.
• Titulky a podpisy: Graf lze doplnit nadpisy a popisky pro osy a data. K tomu se používají vlastnosti HasTitle , ChartTitle , HasAxisTitles, AxisTitle atd.
• Dekorace a styly: Excel poskytuje různé možnosti pro přizpůsobení vzhledu grafu. Pomocí vlastností ChartStyle , ColorPalette, PlotVisibleOnly atd. Můžete změnit styl, barvy a zobrazení dat v diagramu.

Sub CreateChart()Dim ws As WorksheetDim cht As ChartObjectDim rng As Range' Указываем лист, на котором создается диаграммаSet ws = ThisWorkbook.Worksheets("Лист1")' Указываем диапазон с даннымиSet rng = ws.Range("A1:B10")' Создаем объект диаграммыSet cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=300, Height:=200)' Устанавливаем тип диаграммыcht.Chart.ChartType = xlColumnClustered' Устанавливаем источник данныхcht.Chart.SetSourceData rng' Добавляем заголовокcht.Chart.HasTitle = Truecht.Chart.ChartTitle.Text = "Диаграмма"' Добавляем заголовки осейcht.Chart.HasAxis(xlCategory, xlPrimary) = Truecht.Chart.Axes(xlCategory, xlPrimary).HasTitle = Truecht.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Категории"cht.Chart.Axes(xlValue, xlPrimary).HasTitle = Truecht.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Значения"' Устанавливаем стильcht.Chart.ChartStyle = 2' Устанавливаем цветовую палитруcht.Chart.ColorPalette = 5' Отображаем только данные на диаграммеcht.Chart.PlotVisibleOnly = TrueEnd Sub

Tento příklad kódu vytváří sloupcový diagram na listu List1 pomocí rozsahu buněk A1:B10 jako zdroj dat. Diagram má dané rozměry a umístění na listu, uvedený typ diagramu, záhlaví a podpisy OS. Používá také určitý styl a barevnou paletu.

VBA Excel má mnoho dalších vlastností a metod pro přizpůsobení grafu, které lze použít v závislosti na požadovaném výsledku. Vypořádejte se s nimi a vytvořte barevné a informativní grafy ve svých projektech!

Přidání dat

Chcete-li vytvořit graf na listu v Excelu pomocí VBA, musíte nejprve přidat data, která budou uvedena v grafu. Data lze zadávat ručně nebo extrahovat z jiných zdrojů.

Existuje několik způsobů, jak přidat data do listu:

1. Ruční vstup: V tomto případě můžete jednoduše vybrat buňky na listu a zadat data. Můžete například vybrat buňky A1: A5 a zadat čísla 10, 20, 30, 40 a 50. Pro textové hodnoty, vyberte buňky B1: B5 a zadejte text.

2. Kopírování a vkládání: Pokud již data existují jinde, například v jiném listu nebo externím programu, můžete data zkopírovat a vložit do cílového listu. Chcete-li to provést, vyberte a zkopírujte data, poté vyberte buňku na listu, kam chcete data vložit, a vložte je.

3. Získávání dat z jiných zdrojů: Excel poskytuje možnost získat data z různých zdrojů, jako jsou databáze, soubory CSV a další. Chcete-li to provést, použijte nástroje pro import dat v Excelu a vyberte požadovaný zdroj dat.

Po přidání dat na list, můžete začít vytvářet graf pomocí VBA. Chcete-li to provést, musíte určit rozsah dat, který bude použit k vytvoření grafu, a vytvořit objekt grafu příslušného typu.

Příklad kódu pro ruční přidání dat:

Sub AddDataManually()Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1")' Заполнение числовых данныхws.Range("A1:A5").Value = Application.Transpose(Array(10, 20, 30, 40, 50))' Заполнение текстовых данныхws.Range("B1:B5").Value = Application.Transpose(Array("Один", "Два", "Три", "Четыре", "Пять"))End Sub

Tento příklad kódu přidává číselná a textová data na list "Sheet1" do buněk A1:A5 a B1:B5, respektive.

V další části se podíváme na to, jak vytvořit diagram pomocí přidaných dat.

Nastavení OS a legendy

Po vytvoření grafu v excelovém listu pomocí VBA je možné upravit osy a legendy, aby byl graf přehlednější a přehlednější.

Chcete-li nastavit osy, musíte nastavit následující možnosti:

• Minimální hodnota osy X / Y: můžete nastavit minimální hodnotu osy tak, aby odpovídala hodnotám dat. K tomu stačí použít vlastnost Axis.MinimumScale a specifikovat odpovídající velikost.
• Maximální hodnota osy X / Y: je možné nastavit maximální hodnotu osy tak, aby odpovídala hodnotám dat. K tomu stačí použít vlastnost Axis.MaximumScale a specifikovat odpovídající velikost.
• Krok osy X / Y: je možné nastavit krok osy tak, aby dělení bylo rovnoměrné a srozumitelné pro analýzu dat. K tomu stačí použít vlastnost Axis.MajorUnit a zadat odpovídající velikost.

Aby byla legenda čitelnější a srozumitelnější, lze nakonfigurovat následující nastavení:

• Název legendy: můžete nastavit název legendy tak, aby odrážel podstatu dat. K tomu stačí použít vlastnost Chart.Legend.Caption a uveďte odpovídající název.
• Postavení legendy: můžete nastavit polohu legendy tak, aby byla snadno čitelná. K tomu stačí použít vlastnost Chart.Legend.Position a zadat jednu z možných hodnot: xlegendpositiontop , xlegendpositionbottom, xlegendpositionleft nebo xlegendpositionright .

Pomocí aplikace VBA Excel lze tedy snadno nastavit osy a legendu na vytvořeném grafu, aby byla data přehlednější a přehlednější.