So erstellen sie ein balkendiagramm in vba (mit beispiel)

Sie können die folgende grundlegende Syntax verwenden, um mit VBA ein Balkendiagramm in Excel zu erstellen:

 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

Dieses spezielle Makro fordert den Benutzer zur Eingabe eines Eingabebereichs auf und generiert dann mithilfe des Eingabebereichs automatisch ein Balkendiagramm und fügt es in das Blatt mit dem Namen „ Sheet1“ ein, wobei sich die obere linke Ecke des Diagramms in der aktuell aktiven Zelle befindet.

Das folgende Beispiel zeigt, wie dieses Makro in der Praxis verwendet wird.

Beispiel: So erstellen Sie ein Balkendiagramm in VBA

Angenommen, wir haben den folgenden Datensatz in Excel, der Informationen über die von verschiedenen Basketballspielern erzielten Punkte enthält:

Nehmen wir an, wir möchten VBA verwenden, um anhand dieses Datensatzes ein Balkendiagramm zu erstellen.

Dazu können wir das folgende Makro erstellen:

 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

Um dieses Makro auszuführen, können wir in Excel im oberen Menüband auf die Registerkarte „Entwickler “ und dann auf „Makros“ klicken.

Wir können dann auf das mit der Bezeichnung „CreateBarChart“ klicken und dann auf „Ausführen“ klicken:

Sobald wir auf „Ausführen“ klicken, werden wir aufgefordert, einen Eingabebereich für unser Balkendiagramm einzugeben:

Wir geben A1:B7 ein und drücken dann OK .

Das folgende Balkendiagramm wird automatisch erstellt und angezeigt, wobei sich die obere linke Ecke des Diagramms in der aktuell aktiven Zelle befindet, die zufällig Zelle D1 ist:

Hinweis : Sie können die Werte der Argumente „Width “ und „Height“ in der Funktion ChartObjects.Add() ändern, um die Breite bzw. Höhe des Balkendiagramms anzupassen.

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So zählen Sie die Anzahl der verwendeten Spalten