Een staafdiagram maken in vba (met voorbeeld)

U kunt de volgende basissyntaxis gebruiken om een staafdiagram in Excel te maken met behulp van VBA:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

Deze specifieke macro zal de gebruiker om een invoerbereik vragen en vervolgens automatisch een staafdiagram genereren met behulp van het invoerbereik en dit invoegen in het blad met de naam Blad1 , met de linkerbovenhoek van het diagram in de momenteel actieve cel.

Het volgende voorbeeld laat zien hoe u deze macro in de praktijk kunt gebruiken.

Voorbeeld: een staafdiagram maken in VBA

Stel dat we de volgende gegevensset in Excel hebben die informatie bevat over de punten die door verschillende basketbalspelers zijn gescoord:

Stel dat we VBA willen gebruiken om een staafdiagram te genereren met behulp van deze gegevensset.

We kunnen hiervoor de volgende macro maken:

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

Om deze macro uit te voeren, kunnen we op het tabblad Ontwikkelaars op het bovenste lint in Excel klikken en vervolgens op Macro’s klikken.

We kunnen dan klikken op degene met het label CreateBarChart en vervolgens op Uitvoeren klikken:

Zodra we op Uitvoeren klikken, wordt ons gevraagd om een invoerbereik voor ons staafdiagram:

We typen A1:B7 en drukken vervolgens op OK .

Het volgende staafdiagram wordt automatisch gemaakt en weergegeven met de linkerbovenhoek van het diagram in de momenteel actieve cel, die toevallig cel D1 is:

Opmerking : u kunt de waarden van de argumenten Breedte en Hoogte in de functie ChartObjects.Add() wijzigen om respectievelijk de breedte en hoogte van het staafdiagram aan te passen.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe u de laatst gebruikte regel kunt vinden
VBA: het aantal rijen binnen bereik tellen
VBA: het aantal gebruikte kolommen tellen