Excel VBA-grafieken
Diagrammen kunnen worden aangeduid als objecten in VBA, vergelijkbaar met het werkblad kunnen we ook diagrammen in VBA op dezelfde manier invoegen, eerst selecteren we de gegevens en het diagramtype dat we willen voor onze gegevens, nu zijn er twee verschillende soorten diagrammen die we aanbieden is het ingesloten diagram waarbij het diagram zich op hetzelfde gegevensblad bevindt en een andere staat bekend als het diagramblad waar het diagram zich op het afzonderlijke blad met de gegevens bevindt.
Bij data-analyse zijn visuele effecten de belangrijkste prestatie-indicatoren van de persoon die de analyse heeft uitgevoerd. Visuals zijn de best mogelijke manier waarop een analist zijn of haar boodschap kan overbrengen. Omdat we allemaal Excel-gebruikers zijn, besteden we meestal een aanzienlijke hoeveelheid tijd aan het analyseren van de gegevens en trekken we conclusies met cijfers en grafieken. Het maken van een diagram is een kunst om onder de knie te krijgen, en ik hoop dat je een goede kennis hebt van het maken van diagrammen met Excel. In dit artikel laten we u zien hoe u grafieken kunt maken met VBA-codering.
Hoe grafieken toevoegen met VBA-code in Excel?
# 1 - Maak een grafiek met VBA-codering
Om een diagram te maken, moeten we een soort numerieke gegevens hebben. Voor dit voorbeeld ga ik de onderstaande voorbeeldgegevens gebruiken.
Oké, laten we naar de VBA-editor gaan.
Stap 1: Start de subprocedure.
Code:
Sub Charts_Example1 () End Sub
Stap 2: definieer de variabele als grafiek.
Code:
Sub Charts_Example1 () Dim MyChart As Chart End Sub
Stap 3: Aangezien de grafiek een objectvariabele is, moeten we deze instellen .
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add End Sub
De bovenstaande code voegt een nieuw blad toe als een grafiekblad, niet als een werkblad.
Stap 4: Nu moeten we de grafiek ontwerpen. Openen met verklaring.
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart End With End Sub
Stap 5: Het eerste dat we met de grafiek moeten doen, is het bronbereik instellen door de methode "Brongegevens instellen" te selecteren.
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart .SetSourceData End With End Sub
Stap 6: Hier moeten we het bronbereik vermelden. In dit geval bevindt mijn bronbereik zich in het blad met de naam "Blad1" en het bereik is "A1 tot B7".
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") End With End Sub
Stap 7: Vervolgens moeten we het soort diagram selecteren dat we gaan maken. Hiervoor moeten we de eigenschap Diagramtype selecteren .
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = End With End Sub
Stap 8: Hier hebben we een verscheidenheid aan grafieken. Ik ga de grafiek " xlColumnClustered " selecteren .
Code:
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = xlColumnClustered End With End Sub
Oké, laten we op dit moment de code uitvoeren met de F5-toets of handmatig en kijken hoe de grafiek eruitziet.
Stap 9: Wijzig nu andere eigenschappen van de grafiek. Om de titel van het diagram te wijzigen, staat hieronder de code.
Zo hebben we veel eigenschappen en methoden met grafieken. Gebruik ze allemaal om de impact te zien en te leren.
Sub Charts_Example1 () Dim MyChart As Chart Set MyChart = Charts.Add With MyChart .SetSourceData Sheets ("Sheet1"). Range ("A1: B7") .ChartType = xlColumnClustered .ChartTitle.Text = "Sales Performance" End With End Sub
# 2 - Maak een diagram met hetzelfde Excel-blad als de vorm
To create the chart with the same worksheet (datasheet) as shape, we need to use a different technique.
Step 1: First Declare threes Object Variables.
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object End Sub
Step 2: Then Set the Worksheet reference.
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") End Sub
Step 3: Now set the range object in VBA
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") Set Rng = Ws.Range("A1:B7") End Sub
Step 4: Now, set the chart object.
Code:
Sub Charts_Example2() Dim Ws As Worksheet Dim Rng As Range Dim MyChart As Object Set Ws = Worksheets("Sheet1") Set Rng = Ws.Range("A1:B7") Set MyChart = Ws.Shapes.AddChart2 End Sub
Step 5: Now, as usual, we can design the chart by using the “With” statement.
Code:
Sub Charts_Example2() Dim Ws As Worksheet 'To Hold Worksheet Reference Dim Rng As Range 'To Hold Range Reference in the Worksheet Dim MyChart As Object Set Ws = Worksheets("Sheet1") 'Now variable "Ws" is equal to the sheet "Sheet1" Set Rng = Ws.Range("A1:B7") 'Now variable "Rng" holds the range A1 to B7 in the sheet "Sheet1" Set MyChart = Ws.Shapes.AddChart2 'Chart will be added as Shape in the same worksheet With MyChart.Chart .SetSourceData Rng 'Since we already set the range of cells to be used for chart we have use RNG object here .ChartType = xlColumnClustered .ChartTitle.Text = "Sales Performance" End With End Sub
This will add the chart below.
#3 - Code to Loop through the Charts
Like how we look through sheets to change the name or insert values, hide & unhide them. Similarly, to loop through the charts, we need to use chart object property.
The below code will loop through all the charts in the worksheet.
Code:
Sub Chart_Loop() Dim MyChart As ChartObject For Each MyChart In ActiveSheet.ChartObjects 'Enter the code here Next MyChart End Sub
#4 - Alternative Method to Create Chart
We can use the below alternative method to create charts. We can use the Chart Object. Add method to create the chart below is the example code.
This will also create a chart like the previous method.
Code:
Sub Charts_Example3 () Dim Ws As Worksheet Dim Rng As Range Dim MyChart As ChartObject Set Ws = Worksheets ("Sheet1") Set Rng = Ws.Range ("A1: B7") Set MyChart = Ws.ChartObjects.Add (Left: = ActiveCell.Left, Breedte: = 400, Boven: = ActiveCell.Top, Hoogte: = 200) MyChart.Chart.SetSourceData Bron: = Rng MyChart.Chart.ChartType = xlColumnStacked MyChart.Chart.ChartTitle.Text = "Verkoopprestaties" Einde Sub
