Grafieken in Excel VBA

Visualisatie is erg belangrijk in alle gegevens. Wanneer we gegevens in tabellen en pivot presenteren, is het voor een andere gebruiker misschien moeilijk om het hoofdscenario uit de gegevens te begrijpen. Dus in Excel hebben we grafieken om onze gegevens te presenteren. Grafieken is de visuele weergave van gegevens in rijen en kolommen van het Excel-blad. Nu weten we allemaal hoe we een grafiek in een Excel-werkblad moeten invoegen. In dit onderwerp zullen we leren over het gebruik van grafieken in VBA. Het is zo eenvoudig als we grafieken gebruiken in Excel. Nu zoals in een werkblad waar we verschillende soorten grafieken hebben om op dezelfde manier voor te kiezen, hebben we alle grafieken in VBA ook als een object. Het enige wat we moeten doen is dat object aanroepen om het te gebruiken. We kunnen grafieken maken vanuit VBA in hetzelfde werkblad of in een afzonderlijk grafiekblad. Het is echter raadzaam om grafieken in een afzonderlijk blad te gebruiken om verwarring te voorkomen.

Wat zijn de grafieken in VBA? Grafieken zijn eenvoudige objecten in VBA. We kunnen twee soorten grafieken maken in VBA. Een staat bekend als een kaartblad, terwijl een andere bekend staat als ingesloten grafieken. In het grafiekblad maakt VBA een nieuw werkblad voor de grafiek. We geven de referentiegegevens die een ander werkblad zijn als brongegevens. Nu zijn ingesloten grafieken die grafieken die in hetzelfde werkblad van de gegevens aanwezig zijn. Nu is de codering voor deze twee typen grafieken enigszins verschillend van elkaar, wat we in dit onderwerp zullen leren. Om de diagrameigenschappen in VBA te gebruiken, gebruiken we het puntsymbool (.) Als IntelliSense. Nu moeten we één ding onthouden dat Excel verschillende typen grafieken bevat. Als we geen grafiektype voor onze code opgeven, maakt VBA standaard automatisch een kolomdiagram voor ons. Uiteraard kunnen we dat veranderen met een paar regels code.

Hoe grafieken te maken in Excel VBA?

Laten we nu leren hoe u grafieken kunt maken in Excel VBA met een paar voorbeelden.

U kunt deze VBA-grafieken Excel-sjabloon hier downloaden - VBA-grafieken Excel-sjabloon

Voor alle voorbeelden zullen we één gegevens beschouwen die als volgt in blad 1 aanwezig zijn,

Excel VBA-grafieken - Voorbeeld # 1

Laten we eerst leren hoe we een grafiek in VBA kunnen invoegen, volg hiervoor de onderstaande stappen:

Stap 1: Begin als volgt met een subprocedure.

Code:

 Subkaarten1 () Einde Sub

Stap 2: Declareer één variabele als een grafiekobject.

Code:

 Subdiagrammen1 () Dim Cht als diagrameinde Sub

Stap 3: Om de grafieken te gebruiken moeten we de add-methode aanroepen zoals hieronder getoond.

Code:

 Subdiagrammen1 () Dim Cht als kaartenset Cht = Charts. Einde toevoegen Sub

Stap 4: Om grafiekobjecteigenschappen te gebruiken, voegt u een With-instructie in de code in zoals hieronder getoond.

Code:

 Subdiagrammen1 () Dim Cht als kaartenset Cht = Charts. Toevoegen met Cht einde met einde Sub

Stap 5: Laten we nu een bron voor deze grafiek opgeven, beginnen met een puntoperator en het zal ons verdere opties geven. Schrijf de volgende code hieronder om een ​​bron voor de grafiek in te voeren.

Code:

 Subdiagrammen1 () Dim Cht als kaartenset Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Bereik ("A1: B6") End With End Sub

Stap 6: Onthoud nu dat we geen grafiektype hebben opgegeven, laten we eerst de bovenstaande code uitvoeren door op F5 te drukken en kijken welk type grafiek wordt ingevoegd.

We hebben een nieuw blad gemaakt, een grafiek genaamd, en deze bevat onze grafiek.

Stap 7: Laten we de code nu het type diagram geven dat we voor deze weergave willen gebruiken,

Stap 8: Laten we 3D-gebied voor dit voorbeeld selecteren zoals hieronder getoond,

Code:

 Subdiagrammen1 () Dim Cht als kaartenset Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Bereik ("A1: B6") .ChartType = xl3DArea End With End Sub

Stap 9: Voer de code uit door op F5 te drukken of door op de knop Afspelen te klikken en controleer het grafiektype in het werkblad.

Onthoud nu elke keer dat we de code uitvoeren dat er een nieuw kaartblad voor ons wordt gemaakt. Dit wordt ook wel een grafiekblad genoemd omdat het grafieken in een ander blad maakt.

Excel VBA-grafieken - Voorbeeld # 2

Laten we nu een ingesloten grafiek maken, wat betekent grafiek in het blad van de brongegevens. Volg hiervoor de onderstaande stappen om een ​​grafiek in Excel VBA te maken.

Stap 1: Start in dezelfde module nog een subprocedure als volgt.

 Code: Subkaarten2 () Einde Sub

Stap 2: Declareer opnieuw een variabele als grafiektype als volgt.

Code:

 Subdiagrammen2 () Dim Cht1 als diagrameinde Sub

Stap 3: Het verschil in de ingesloten grafieken is dat we het werkblad met de gegevens verwijzen als het actieve blad met de volgende code hieronder.

Code:

 Subdiagrammen2 () Dim Cht1 als diagramset Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

Stap 4: Nu de rest van het maken en ontwerpen van de grafieken vergelijkbaar is, plaatsen we opnieuw een With Statement in de code als volgt.

Code:

 Subdiagrammen2 () Dim Cht1 als kaartenset Cht1 = ActiveSheet.Shapes.AddChart.Chart met Cht1 End met End Sub

Stap 5: Laten we een locatie opgeven waar onze grafiek zal komen, omdat we niet willen dat deze over onze gegevens gaat, dus voeg vóór With Statement de volgende code toe aan waar we onze grafiek als volgt hadden ingesteld.

Code:

 Subdiagrammen2 () Dim Cht1 als kaartenset Cht1 = ActiveSheet.Shapes.AddChart (Links: = 200, Breedte: = 300, Top: = 50, Hoogte: = 300). Hart met Cht1 End With End Sub

Stap 6: Laten we nu als volgt de bron van de gegevens en het diagramtype opgeven dat we willen hebben.

Code:

 Subdiagrammen2 () Dim Cht1 als kaartenset Cht1 = ActiveSheet.Shapes.AddChart (Links: = 200, Breedte: = 300, Top: = 50, Hoogte: = 300). Hart met Cht1 .SetSourceData Bron: = Sheets ("Sheet1 ") .Range (" A1: B6 "). Harthart = xl3DArea Eind met einde Sub

Stap 7: Voer de code uit door op de F5-toets te drukken of door op de knop Afspelen te klikken en bekijk het resultaat in ons blad met de gegevens als volgt.

Dit wordt een ingesloten grafiek genoemd omdat de grafiek zich in hetzelfde blad bevindt als de gegevens.

Excel VBA-grafieken - Voorbeeld # 3

Er is ook een andere manier om een ​​grafiek in onze werkbladen te maken met behulp van VBA. Deze methode staat bekend als de methode ChartsObject.

Stap 1: Laten we in dezelfde module als volgt met een derde subprocedure beginnen.

Code:

 Subkaarten3 () Einde Sub

Stap 2: Kegel als werkbladgegevenstype een ander als bereik en een als grafiekobject zoals hieronder weergegeven.

Code:

 Subdiagrammen3 () Dim WK als werkblad, Rng als bereik, Cht3 als ChartObject End Sub

Stap 3: Stel eerst het werkblad in op de plaats waar de gegevens zich bevinden, in dit geval blad 1.

Code:

 Subdiagrammen3 () Dim WK als werkblad, Rng als bereik, Cht3 als ChartObject Set WK = werkbladen ("Blad1") Einde Sub

Stap 4: Selecteer nu het gegevensbereik dat we hebben als volgt.

Code:

 Subdiagrammen3 () Dim WK als werkblad, Rng als bereik, Cht3 als ChartObject Set WK = werkbladen ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub

Stap 5: Stel nu het grafiekobject in om de grafiek toe te voegen met behulp van de grafiekobjecteigenschap als volgt.

Code:

 Subdiagrammen3 () Dim WK als werkblad, Rng als bereik, Cht3 als ChartObject Set WK = werkbladen ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (links: = ActiveCell.Left, Breedte: = 400, Bovenkant: = ActiveCell.Top, Hoogte: = 200) Einde Sub

Stap 6: Laten we nu de bron als volgt aan de grafiek geven.

Code:

 Subdiagrammen3 () Dim WK als werkblad, Rng als bereik, Cht3 als ChartObject Set WK = werkbladen ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (links: = ActiveCell.Left, Breedte: = 400, Bovenkant: = ActiveCell.Top, Hoogte: = 200) Cht3.Chart.SetSourceData Bron: = Rng End Sub

Stap 7: Selecteer nu als volgt het grafiektype dat we willen.

Code:

 Subdiagrammen3 () Dim WK als werkblad, Rng als bereik, Cht3 als ChartObject Set WK = werkbladen ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (links: = ActiveCell.Left, Breedte: = 400, Bovenkant: = ActiveCell.Top, Hoogte: = 200) Cht3.Chart.SetSourceData Bron: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub

Stap 8: Voer de code uit door op F5 te drukken of door op de knop Afspelen te klikken en het resultaat in blad 1 te bekijken.

Dingen om te onthouden

  • We kunnen beslissen welk type diagrammen we willen gebruiken door een diagramtype in te stellen.
  • In Grafiektype, het aantal keren dat we de code uitvoeren, wordt een nieuw werkblad gemaakt onder een unieke grafieknaam met een grafiek erin.
  • Grafiekobject is ook een lid van bladen waarin we zowel grafieken als bladen hebben.
  • Om het grafiekobject te gebruiken, moeten we een SET-instructie gebruiken om de grafiek eerst in te stellen.

Aanbevolen artikelen

Dit is een handleiding voor VBA-grafieken. Hier bespreken we hoe u grafieken in Excel kunt maken met behulp van VBA-code, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. VBA PowerPoint
  2. Excel-combinatiediagrammen
  3. VBA-controlebestand bestaat
  4. Excel-kolomgrafiek

Categorie:

VBA