Grafikoni u Excelu VBA

Vizualizacija je vrlo bitna u svim podacima. U excelu kada podatke prikazujemo u tablicama i stožerno, drugi korisnik može teško shvatiti glavni scenarij iz tih podataka. Dakle, u excelu imamo grafikone koji prikazuju naše podatke. Grafikoni su vizualni prikaz podataka prisutnih u redovima i stupovima na excel listi. Sada svi znamo kako umetnuti grafikon u excel radni list. U ovoj temi ćemo naučiti o korištenju ljestvica u VBA. Jednostavno je kao što koristimo grafikone u excelu. Sada kao na radnom listu u kojem imamo razne vrste grafikona da se odlučimo za slično, imamo sve karte u VBA i kao objekt. Sve što trebamo učiniti je nazvati taj objekt kako bismo ga mogli koristiti. VBA grafikone možemo napraviti na istom radnom listu ili na posebnom listu grafikona. Međutim, preporučljivo je koristiti grafikone na posebnom listu kako biste izbjegli zabune.

Koje su karte u VBA? Grafikoni su jednostavni objekti u VBA. U VBA možemo napraviti dvije vrste ljestvica. Jedan je poznat kao lista grafikona, dok je drugi poznat kao ugrađeni grafikoni. U listu grafikona, VBA stvara novi radni list za grafikon. Dajemo referentne podatke koji su još jedan radni list kao izvor podataka. Sada su ugrađene karte one karte koje se nalaze na istom radnom listu podataka. Sada se kodiranje za ove dvije vrste grafikona malo razlikuje jedna od druge što ćemo naučiti u ovoj temi. Za upotrebu svojstava grafikona u VBA koristimo točka (.) Kao IntelliSense. Sada moramo zapamtiti jednu stvar da postoje razne vrste ljestvica u excelu. Ako našem kôdu ne pružimo vrstu grafikona, VBA automatski pravi grafikon stupaca za nas prema zadanom. Očito to možemo promijeniti kroz nekoliko redaka koda.

Kako stvoriti grafikone u Excelu VBA?

Sada ćemo naučiti kako napraviti grafikone u Excelu VBA s nekoliko primjera.

Možete preuzeti ovaj VBA Charts Excel predložak ovdje - VBA Charts Excel predložak

Za sve primjere razmotrit ćemo jedan podatak koji se nalazi u listu 1 kako slijedi,

Excel VBA karte - Primjer # 1

Prvo, naučimo kako umetnuti grafikon u VBA, za to slijedite korake u nastavku:

Korak 1: Počnite s podprocedurom na sljedeći način.

Kodirati:

 Sub Charts1 () Kraj Sub

Korak 2: Deklarirajte jednu varijablu kao objekt grafikona.

Kodirati:

 Sub Charts1 () Dim Cht Kao kraj grafikona Sub

Korak 3: Da bismo koristili grafikone, moramo pozvati metodu za dodavanje kao što je prikazano u nastavku.

Kodirati:

 Sub Charts1 () Dim Cht kao skup grafikona Cht = Charts.Add End Sub

Korak 4: Da biste koristili svojstva objekta grafikona, umetnite a Statement u kod kao što je prikazano u nastavku.

Kodirati:

 Sub Charts1 () Dim Cht kao skup grafikona Cht = Charts.Dodati sa Cht End sa krajnjim Sub

Korak 5: Pustimo sada da pružimo izvor za ovaj grafikon, započnite s operatorom točka i on će nam dati dodatne mogućnosti. Napišite sljedeći kôd dolje da biste unijeli izvor za grafikon.

Kodirati:

 Sub Charts1 () Dim Cht kao skup grafikona Cht = Charts.Add with Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") End with End Sub

Korak 6: Sjetite se da nismo pružili nijednu vrstu grafikona, prvo pokrenimo gornji kôd pritiskom na tipku F5 i pogledajte koja će vrsta grafikona biti umetnuta.

Imamo novi list kreiran pod nazivom Chart i u njemu je naš grafikon.

Korak 7: Sada ćemo dati kôdu vrstu grafikona koju želimo upotrijebiti za ovaj prikaz,

8. korak: odaberemo 3D područje za ovaj primjer kao što je prikazano u nastavku,

Kodirati:

 Pod Charts1 () Dim Cht kao skup grafikona Cht = Charts.Dodati sa Cht .SetSourceData Izvor: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End with End Sub

9. korak: Pokrenite kôd pritiskom na tipku F5 ili klikom na gumb Reproduciraj i provjerite vrstu grafikona na radnom listu.

Sada se sjetite svaki put kada pokrenemo kôd za nas će stvoriti novi grafikon. To je poznato i kao lista grafikona, jer stvara grafikone na drugom listu.

Excel VBA karte - primjer br. 2

Sada napravimo ugrađenu grafikon, što znači grafikon na listu izvornih podataka. Za to slijedite dolje navedene korake za izradu grafikona u Excelu VBA.

Korak 1: U istom modulu pokrenite još jedan podprocesu na sljedeći način.

 Šifra: Sub Charts2 () Kraj Sub

Korak 2: Opet proglasite varijablu kao vrstu grafikona na sljedeći način.

Kodirati:

 Sub Charts2 () Dim Cht1 kao kraj kraja Sub

Korak 3: Razlika u ugrađenim grafikonima nazivamo radni list koji sadrži podatke kao aktivni list prema sljedećem kôdu prikazanom u nastavku.

Kodirati:

 Pod-grafikoni2 () Dim Cht1 kao skup grafikona Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

Korak 4: Sada je ostatak izrade i dizajniranja grafikona sličan, opet u kod stavljamo S Statement .

Kodirati:

 Pod-grafikoni2 () Dim Cht1 kao skup grafikona Cht1 = ActiveSheet.Shapes.AddChart.Chart s Cht1 kraj sa završnim pot

Korak 5: Navedimo lokaciju na kojoj će se nalaziti naš grafikon kao što ne želimo da bude iznad naših podataka, pa prije Izjave dodajte sljedeći kod na mjesto gdje smo postavili svoj grafikon na sljedeći način.

Kodirati:

 Pod-grafikoni2 () Dim Cht1 kao skup grafikona Cht1 = ActiveSheet.Shapes.AddChart (lijevo: = 200, širina: = 300, vrh: = 50, visina: = 300) .Kartica s Cht1 kraj s krajnjim pot

Korak 6: Navedimo izvor podataka i vrstu grafikona koju želimo biti kako slijedi.

Kodirati:

 Pod-grafikoni2 () Dim Cht1 kao skup grafikona Cht1 = ActiveSheet.Shapes.AddChart (lijevo: = 200, širina: = 300, vrh: = 50, visina: = 300) .Kartica s Cht1 .SetSourceData Izvor: = Sheets ("Sheet1 ") .Randa (" A1: B6 ") .ChartType = xl3DArea End sa krajnjim pot

Korak 7: Pokrenite kôd pritiskom na tipku F5 ili klikom na gumb Play i pogledajte rezultat na našem listu gdje su podaci kako slijedi.

To se naziva ugrađenim grafikonomom jer je grafikon u istom listu kao i podaci.

Excel VBA karte - primjer br. 3

Postoji i drugi način stvaranja grafikona na našim radnim listovima pomoću VBA. Ova metoda je poznata kao metoda ChartsObject.

Korak 1: U istom modulu pokrenimo s trećim potprocedurom na sljedeći način.

Kodirati:

 Sub Charts3 () Kraj Sub

Korak 2: Konus kao podaci radnog lista upišite drugi kao raspon i jedan kao objekt grafikona kao što je prikazano u nastavku.

Kodirati:

 Sub Charts3 () Dim WK kao radni list, Rng kao raspon, Cht3 kao ChartObject End Sub

Korak 3: Najprije postavite radni list na mjesto gdje se nalaze podaci, a to je list 1 u ovom slučaju.

Kodirati:

 Sub Charts3 () Dim WK kao radni list, Rng kao raspon, Cht3 kao ChartObject Set WK = Radni listovi ("Sheet1") Kraj Sub

Korak 4: Sada odaberite raspon podataka koji imamo na sljedeći način.

Kodirati:

 Pod Charts3 () Dim WK kao radni list, Rng kao raspon, Cht3 kao skup ChartObject WK = Radni listovi ("Sheet1") Rng = WK.Range ("A1: B6") Kraj Pot

Korak 5: Sada postavite objektu grafikona da doda grafikon koristeći svojstvo objekta grafikona na sljedeći način.

Kodirati:

 Pod Charts3 () Dim WK kao radni list, Rng kao raspon, Cht3 kao skup ChartObject WK = Radni listovi ("Sheet1") Rng = WK.Range ("A1: B6") Postavite Cht3 = WK.ChartObjects.Add (Lijevo: = ActiveCell.Left, širina: = 400, vrh: = ActiveCell.Top, visina: = 200) krajnji pot

Korak 6: Sada ćemo dati izvor grafikona na sljedeći način.

Kodirati:

 Pod Charts3 () Dim WK kao radni list, Rng kao raspon, Cht3 kao skup ChartObject WK = Radni listovi ("Sheet1") Rng = WK.Range ("A1: B6") Postavite Cht3 = WK.ChartObjects.Add (Lijevo: = ActiveCell.Left, Širina: = 400, Top: = ActiveCell.Top, Visina: = 200) Cht3.Chart.SetSourceData Izvor: = Rng End Sub

Korak 7: Sada odaberite vrstu grafikona koju želimo na sljedeći način.

Kodirati:

 Pod Charts3 () Dim WK kao radni list, Rng kao raspon, Cht3 kao skup ChartObject WK = Radni listovi ("Sheet1") Rng = WK.Range ("A1: B6") Postavite Cht3 = WK.ChartObjects.Add (Lijevo: = ActiveCell.Left, Širina: = 400, Vrh: = ActiveCell.Top, Visina: = 200) Izvor Cht3.Chart.SetSourceData: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub

Korak 8: Pokrenite kôd pritiskom na tipku F5 ili klikom na gumb Reproduciraj i pogledajte rezultat u listu 1.

Stvari koje treba zapamtiti

  • Postavljanjem vrste grafikona možemo odlučiti koju vrstu grafikona želimo koristiti.
  • U vrsti Chart, koliko smo puta pokrenuli kod, stvoren je novi radni list pod jedinstvenim nazivom grafikona i grafikonom u njemu.
  • Objekt grafikona također je član listova u kojima imamo i grafikone i listove.
  • Da bismo koristili objekt grafikona, prvo moramo postaviti izraz SET.

Preporučeni članci

Ovo je vodič za VBA karte. Ovdje smo raspravljali o tome kako stvoriti grafikone u Excelu pomoću VBA koda zajedno s praktičnim primjerima i download-ovim Excel predloška. Možete i pregledati naše druge predložene članke -

  1. VBA PowerPoint
  2. Excel kombinacijske karte
  3. VBA Provjera datoteke postoji
  4. Excel stupac grafikon

Kategorija:

VBA