Grafice VBA - Cum să creați diagrame în Excel folosind codul VBA?

• Grafice în Excel VBA

Grafice în Excel VBA

Vizualizarea este foarte importantă în orice date. În excel când prezentăm date în tabele și pivot, ar putea fi dificil pentru un alt utilizator să înțeleagă scenariul principal din date. Deci, în excel, avem diagrame care să ne prezinte datele. Grafice este reprezentarea vizuală a datelor prezente în rânduri și coloane ale foii Excel. Acum știm cu toții cum să inseram un grafic într-o foaie de lucru excel. În acest subiect, vom afla despre utilizarea graficelor în VBA. Este la fel de simplu cum folosim graficele în excel. Acum ca într-o foaie de lucru unde avem diverse tipuri de diagrame pentru care să opteze în mod similar, avem toate graficele din VBA, de asemenea, ca obiect. Tot ce trebuie să facem este să apelăm la acel obiect pentru a-l folosi. Putem realiza diagrame din VBA în aceeași foaie de lucru sau într-o foaie de diagramă separată. Cu toate acestea, cel mai indicat este să folosiți diagrame într-o foaie separată pentru a evita orice confuzie.

Care sunt graficele din VBA? Graficele sunt obiecte simple în VBA. Putem realiza două tipuri de diagrame în VBA. Unul este cunoscut sub numele de foaie de diagramă, în timp ce altul este cunoscut sub numele de grafice încorporate. În foaia grafică, VBA creează o nouă foaie de lucru pentru grafic. Dăm datele de referință care este o altă fișă de lucru ca sursă de date. Graficele încorporate sunt acele grafice care sunt prezente în aceeași foaie de lucru a datelor. Acum, codarea pentru aceste două tipuri de diagrame este ușor diferită una de alta, pe care o vom învăța în acest subiect. Pentru a folosi proprietățile graficului în VBA, folosim simbolul punct (.) Ca IntelliSense. Acum trebuie să ne amintim un lucru că există diverse tipuri de diagrame în excel. Dacă nu furnizăm un tip de diagramă codului nostru, VBA ne face automat o diagramă de coloane pentru noi în mod implicit. Evident, putem schimba asta cu câteva linii de cod.

Cum să creați diagrame în Excel VBA?

Acum să învățăm cum să facem diagrame în Excel VBA cu câteva exemple.

Puteți descărca acest șablon Excel Viziuni grafice aici - Șablonul VBA Diagrame Excel

Pentru toate exemplele, vom lua în considerare una dintre datele care sunt prezente în fișa 1 după cum urmează,

Diagrame Excel VBA - Exemplul # 1

În primul rând, să învățăm cum să inserați un grafic în VBA, pentru aceasta, urmați pașii de mai jos:

Pasul 1: Începeți cu o subprocedură după cum urmează.

Cod:

 Diagrame sub1 () End Sub 

Pasul 2: Declarați o variabilă ca obiect grafic.

Cod:

 Diagrame sub1 () Dim Cht As Sub End Chart 

Pasul 3: Pentru a utiliza diagramele, trebuie să apelăm la metoda de adăugare, așa cum se arată mai jos.

Cod:

 Diagrame sub1 () Dim Cht As Chart Set Cht = Diagrame.Add Sub End 

Pasul 4: Pentru a utiliza proprietățile obiectului de diagramă, introduceți o declarație With în cod, așa cum se arată mai jos.

Cod:

 Subgrafe1 () Dim Cht As Chart Set Cht = Chart.Add Cu Cht End Cu End Sub 

Pasul 5: Acum să oferim o sursă pentru această diagramă, începeți cu un operator de puncte și ne va oferi opțiuni suplimentare. Scrieți mai jos următorul cod pentru a introduce o sursă pentru grafic.

Cod:

 Subgrafe1 () Dim Cht As Chart Set Cht = Charts.Add Cu Cht .SetSourceData Sursa: = Fișe ("Sheet1"). Range ("A1: B6") End with Sub End 

Pasul 6: Amintiți-vă acum că nu am furnizat niciun tip de diagramă, lăsați-ne mai întâi să rulăm codul de mai sus apăsând tasta F5 și să vedem ce tip de diagramă va fi inserat.

Avem o nouă foaie creată numită Diagrama și care are graficul nostru în ea.

Pasul 7: Să dăm acum codului tipul de diagramă pe care dorim să-l utilizăm pentru această reprezentare,

Pasul 8: Să selectăm zona 3D pentru acest exemplu, așa cum se arată mai jos,

Cod:

 Subgrafe1 () Dim Cht As Chart Set Cht = Charts.Add Cu Cht .SetSourceData Sursa: = Fișe ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End With Sub End 

Pasul 9: Rulați codul apăsând tasta F5 sau făcând clic pe butonul Redare și verificați tipul de diagramă din foaia de lucru.

Acum, amintiți-vă de fiecare dată când rulăm codul va crea o nouă foaie de diagramă pentru noi. Aceasta este cunoscută și sub numele de foaie de diagramă, deoarece creează diagrame într-o altă foaie.

Diagrame Excel VBA - Exemplul # 2

Acum să facem un grafic încorporat, care înseamnă grafic în foaia de date sursă. Pentru aceasta, urmați pașii de mai jos pentru a crea un grafic în Excel VBA.

Pasul 1: În același modul începeți o altă subprocedură după cum urmează.

 Cod: Subgrafe2 () End Sub 

Pasul 2: Declarați din nou o variabilă ca tip de diagramă după cum urmează.

Cod:

 Diagrame de sub2 () Dim Cht1 Ca tabel de capăt 

Pasul 3: Diferența dintre diagramele încorporate constă în referirea fișei de lucru care are datele ca foaie activă prin următorul cod prezentat mai jos.

Cod:

 Subgrafe2 () Dim Cht1 Ca grafic set Cht1 = ActiveSheet.Shapes.AddChart.Chart Sub 

Pasul 4: Acum, restul realizării și proiectării graficelor sunt similare, vom pune din nou o declarație cu cod în codul următor.

Cod:

 Subgrafe2 () Dim Cht1 Ca grafic set Cht1 = ActiveSheet.Shapes.AddChart.Chart Cu Cht1 End With Sub End 

Pasul 5: Să specificăm o locație în care graficul nostru va fi așa cum nu dorim să fie peste datele noastre, așa că, înainte cu With Statement, adăugați următorul cod la locul în care ne-am stabilit graficul după cum urmează.

Cod:

 Subgrafe2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart (Stânga: = 200, Lățime: = 300, Top: = 50, Înălțime: = 300) .Chart Cu Cht1 End with Sub End 

Pasul 6: Să oferim acum sursa datelor și a tipului de diagramă pe care dorim să fie după cum urmează.

Cod:

 Subgrafe2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart (Stânga: = 200, Lățime: = 300, Top: = 50, Înălțime: = 300) .Chart Cu Cht1 .SetSourceData Sursa: = Fișe ("Foaie1 "). Range (" A1: B6 ") .ChartType = xl3DArea End With Sub End 

Pasul 7: Rulați codul apăsând tasta F5 sau făcând clic pe butonul Redare și vedeți rezultatul în foaia noastră în care datele sunt următoarele.

Aceasta se numește diagramă încorporată, deoarece graficul se află în aceeași foaie cu datele.

Diagrame Excel VBA - Exemplul # 3

Există, de asemenea, un alt mod de a crea un grafic în fișele noastre de lucru folosind VBA. Această metodă este cunoscută sub numele de metoda ChartsObject.

Pasul 1: În același modul, să începem cu a treia subprocedură, după cum urmează.

Cod:

 Diagrame sub3 () End Sub 

Pasul 2: Conține ca fișă de lucru tipul altuia ca domeniu și unul ca obiect grafic, așa cum se arată mai jos.

Cod:

 Subgrafe3 () Dim WK ca foaie de lucru, Rng ca rază, Cht3 ca tabel 

Pasul 3: Setați mai întâi fișa de lucru pe unde se află datele, care este foaia 1 în acest caz.

Cod:

 Subgrafe3 () Dim WK ca foaie de lucru, Rng ca rază de acțiune, Cht3 ca ChartObject Set WK = foi de lucru ("Foaie1") 

Pasul 4: Acum selectați intervalul de date pe care îl avem după cum urmează.

Cod:

 Sub Grafice3 () Dim WK Ca foaie de lucru, Rng ca rază de acțiune, Cht3 Ca ChartObject Set WK = Fișe de lucru ("Foaie1") Set Rng = WK.Range ("A1: B6") 

Pasul 5: Setați acum obiectul grafic pentru a adăuga diagrama folosind proprietatea obiectului grafic, după cum urmează.

Cod:

 Sub Grafice3 () Dim WK ca foaie de lucru, Rng ca rază de acțiune, Cht3 ca ChartObject Set WK = foi de lucru ("Foaie1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (stânga: = ActiveCell.Left, Lățime: = 400, Top: = ActiveCell.Top, Înălțime: = 200) End Sub 

Pasul 6: Haideți să dăm sursa graficului după cum urmează.

Cod:

 Sub Grafice3 () Dim WK ca foaie de lucru, Rng ca rază de acțiune, Cht3 ca ChartObject Set WK = foi de lucru ("Foaie1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (stânga: = ActiveCell.Left, Lățime: = 400, Top: = ActiveCell.Top, Înălțime: = 200) Cht3.Chart.SetSourceData Sursa: = Rng End Sub 

Pasul 7: Acum selectați tipul de diagramă pe care îl dorim în mod similar, după cum urmează.

Cod:

 Sub Grafice3 () Dim WK ca foaie de lucru, Rng ca rază de acțiune, Cht3 ca ChartObject Set WK = foi de lucru ("Foaie1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (stânga: = ActiveCell.Left, Lățime: = 400, Top: = ActiveCell.Top, Înălțime: = 200) Cht3.Chart.SetSourceData Sursa: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub 

Pasul 8: Rulați codul apăsând tasta F5 sau făcând clic pe butonul Redare și vedeți rezultatul în foaia 1.

Lucruri de amintit

• Putem decide ce tip de diagrame dorim să utilizăm setând un tip de diagramă.
• În tipul de diagramă, de câte ori rulăm codul este creată o nouă foaie de lucru sub un nume de diagramă unic, cu un grafic în el.
• Obiectul grafic este, de asemenea, un membru al foilor în care avem atât diagrame, cât și foi.
• Pentru a utiliza obiectul grafic, trebuie să utilizăm o instrucțiune SET pentru a seta graficul mai întâi.

Articole recomandate

Acesta este un ghid pentru diagramele VBA. Aici vom discuta despre cum să creăm Grafice în Excel folosind codul VBA, împreună cu exemple practice și șablon excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

1. VBA PowerPoint
2. Grafice combinate Excel
3. Există fișiere de verificare VBA
4. Diagrama Coloanelor Excel