Grafy v Excelu VBA
Vizualizace je u všech dat velmi důležitá. Ve vynikajících případech, kdy prezentujeme data v tabulkách a pivotech, může být pro jiného uživatele obtížné pochopit hlavní scénář z dat. Takže v Excelu máme grafy k prezentaci našich dat. Grafy jsou vizuální reprezentace dat přítomných v řádcích a sloupcích tabulky Excel. Nyní všichni víme, jak vložit graf do excelového listu. V tomto tématu se dozvíme o používání grafů ve VBA. Je to tak jednoduché, jak používáme grafy v Excelu. Nyní, stejně jako v listu, kde máme různé typy grafů, které se rozhodnou podobně, máme všechny grafy ve VBA také jako objekt. Vše, co musíme udělat, je zavolat na tento objekt, abychom jej mohli použít. Můžeme vytvořit grafy z VBA ve stejném listu nebo v samostatném grafu. Doporučuje se však používat grafy v samostatném listu, aby nedošlo k záměně.
Jaké jsou grafy ve VBA? Grafy jsou jednoduché objekty ve VBA. Ve VBA můžeme vytvořit dva typy grafů. Jeden je známý jako list grafu, zatímco druhý je známý jako vložené grafy. V listu grafu vytvoří VBA nový list pro graf. Jako zdrojová data dáváme referenční data, což je další list. Nyní jsou vloženy grafy, které jsou uvedeny ve stejném pracovním listu dat. Nyní se kódování těchto dvou typů grafů od sebe trochu liší, což se v tomto tématu naučíme. Pro použití vlastností grafu ve VBA používáme jako IntelliSense tečku (.). Nyní si musíme pamatovat jednu věc, že existují různé typy grafů ve vynikajících. Pokud nášmu kódu neposkytneme typ grafu, VBA pro nás automaticky vytvoří sloupcový graf. Samozřejmě to můžeme změnit několika řádky kódu.
Jak vytvořit grafy v Excelu VBA?
Nyní se naučíme, jak vytvářet grafy v Excelu VBA, s několika příklady.
Tuto šablonu aplikace VBA Charts Excel si můžete stáhnout zde - VBA Charts Excel TemplateU všech příkladů vezmeme v úvahu jeden údaj, který je uveden v listu 1, takto:
Grafy Excel VBA - Příklad č. 1
Nejprve se naučíme, jak vložit graf do VBA, postupujte takto:
Krok 1: Začněte dílčím postupem následujícím způsobem.
Kód:
Dílčí grafy1 () Konec Díl
Krok 2: Deklarujte jednu proměnnou jako objekt grafu.
Kód:
Dílčí grafy1 () Dim Cht jako konec tabulky Díl
Krok 3: Abychom mohli používat grafy, musíme zavolat metodu přidání, jak je ukázáno níže.
Kód:
Dílčí grafy1 () Dim Cht jako sada grafů Cht = Charts.Add End Sub
Krok 4: Chcete-li použít vlastnosti objektu grafu, vložte do příkazu kód With, jak je uvedeno níže.
Kód:
Dílčí grafy1 () Dim Cht jako sada grafů Cht = Charts.Add S Cht End with End Sub
Krok 5: Nyní poskytme zdroj pro tento graf, začněte s tečkovým operátorem a poskytne nám další možnosti. Níže zadejte následující kód a zadejte zdroj pro graf.
Kód:
Pod Charts1 () Dim Cht jako sada grafů Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") End with End Sub
Krok 6: Nyní si pamatujte, že jsme neposkytli žádný typ grafu, nejprve spustíme výše uvedený kód stisknutím klávesy F5 a uvidíme, jaký typ grafu bude vložen.
Máme vytvořen nový list nazvaný graf a má v něm náš graf.
Krok 7: Nyní dejte kódu typ grafu, který chceme použít pro tuto reprezentaci,
Krok 8: Vybereme pro tento příklad 3D oblast, jak je znázorněno níže,
Kód:
Dílčí grafy1 () Dim Cht jako sada grafů Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End with End Sub
Krok 9: Spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Přehrát a zkontrolujte typ grafu v listu.
Nyní si pamatujte pokaždé, když spustíme kód, který pro nás vytvoří nový grafový list. Toto je také známé jako list grafu, protože vytváří grafy v jiném listu.
Grafy Excel VBA - Příklad č. 2
Nyní vytvořme zabudovaný graf, což znamená graf v listu zdrojových dat. Za tímto účelem vytvořte graf v aplikaci Excel VBA podle níže uvedených kroků.
Krok 1: Ve stejném modulu spusťte další podprogram následujícím způsobem.
Kód: Dílčí grafy2 () Konec Díl
Krok 2: Opět deklarujte proměnnou jako typ grafu následujícím způsobem.
Kód:
Dílčí grafy2 () Dim Cht1 jako konec grafu Díl
Krok 3: Rozdíl ve vložených grafech je ten, že pracovní list, který obsahuje data jako aktivní list, odkazujeme na následující kód.
Kód:
Dílčí grafy2 () Dim Cht1 jako sada grafů Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub
Krok 4: Nyní jsou ostatní části tvorby a navrhování grafů podobné, opět jsme do kódu vložili příkaz With With Statement .
Kód:
Dílčí grafy2 () Dim Cht1 jako sada grafů Cht1 = ActiveSheet.Shapes.AddChart.Chart S Cht1 End with End Sub
Krok 5: Určíme místo, kde bude náš graf, protože nechceme, aby to bylo nad našimi údaji, takže před příkazem Statement přidejte následující kód do místa, kde jsme náš graf nastavili následujícím způsobem.
Kód:
Dílčí grafy2 () Dim Cht1 jako sada grafů Cht1 = ActiveSheet.Shapes.AddChart (Vlevo: = 200, Šířka: = 300, Horní: = 50, Výška: = 300).
Krok 6: Nyní nám poskytněte zdroj dat a typ grafu, který chceme být následující.
Kód:
Dílčí grafy2 () Dim Cht1 jako sada grafů Cht1 = ActiveSheet.Shapes.AddChart (Vlevo: = 200, Šířka: = 300, Vrch:: 50, Výška: = 300). Graf S Cht1 .SetSourceData Zdroj: = Tabule ("Sheet1" ") .Range (" A1: B6 ") .ChartType = xl3DArea End With End Sub
Krok 7: Spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Přehrát a zobrazte výsledek v našem listu, kde jsou data následující.
Tomu se říká vložený graf, protože graf je ve stejném listu jako data.
Grafy Excel VBA - Příklad č. 3
Existuje také další způsob, jak vytvořit graf v našich listech pomocí VBA. Tato metoda je známá jako metoda ChartsObject.
Krok 1: Ve stejném modulu začněme třetím podprogramem následujícím způsobem.
Kód:
Dílčí grafy3 () Konec Díl
Krok 2: Kužel jako data listu zadejte jiný jako rozsah a jeden jako objekt grafu, jak je ukázáno níže.
Kód:
Dílčí grafy3 () Dim WK jako list, Rng As Range, Cht3 jako ChartObject End Sub Sub
Krok 3: Nejprve nastavte list na místo, kde jsou data, což je v tomto případě list 1.
Kód:
Dílčí grafy3 () Dim WK jako list, Rng As Range, Cht3 jako ChartObject Set WK = Pracovní listy ("Sheet1") End Sub
Krok 4: Nyní vyberte rozsah dat, která máme, následujícím způsobem.
Kód:
Dílčí grafy3 () Dim WK jako list, Rng As Range, Cht3 As ChartObject Set WK = Pracovní listy ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub
Krok 5: Nyní nastavte objekt grafu na přidání grafu pomocí vlastnosti objektu grafu následujícím způsobem.
Kód:
Dílčí grafy3 () Dim WK jako list, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Šířka: = 400, Horní: = ActiveCell.Top, Výška: = 200) End Sub
Krok 6: Nyní dejte zdroj do grafu následujícím způsobem.
Kód:
Dílčí grafy3 () Dim WK jako list, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Šířka: = 400, Nahoru: = ActiveCell.Top, Výška: = 200) Cht3.Chart.SetSourceData Zdroj: = Rng End Sub
Krok 7: Nyní vyberte typ grafu, který chceme podobně.
Kód:
Dílčí grafy3 () Dim WK jako list, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Šířka: = 400, Nahoru: = ActiveCell.Top, Výška: = 200) Cht3.Chart.SetSourceData Zdroj: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub Sub
Krok 8: Spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Přehrát a podívejte se na výsledek v listu 1.
Co si pamatovat
- Můžeme se rozhodnout, jaký typ grafů chceme použít nastavením typu grafu.
- V poli Typ grafu, kolikrát spustíme kód, se vytvoří nový pracovní list pod jedinečným názvem grafu s grafem v něm.
- Objekt grafu je také členem listů, ve kterých máme grafy i listy.
- Chcete-li použít objekt grafu, musíme nejprve použít příkaz SET k nastavení grafu.
Doporučené články
Toto je průvodce grafy VBA. Zde diskutujeme o tom, jak vytvořit grafy v Excelu pomocí kódu VBA spolu s praktickými příklady a stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -
- VBA PowerPoint
- Excel Grafy kombinace
- VBA Zkontrolujte soubor existuje
- Sloupcový graf Excelu