Jak utworzyć wykres słupkowy w vba (z przykładem)

Aby utworzyć wykres słupkowy w programie Excel przy użyciu języka VBA, możesz użyć następującej podstawowej składni:

 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

To konkretne makro poprosi użytkownika o podanie zakresu wejściowego, a następnie automatycznie wygeneruje wykres słupkowy na podstawie zakresu wejściowego i wstawi go do arkusza o nazwie Arkusz1 z lewym górnym rogiem wykresu znajdującym się w aktualnie aktywnej komórce.

Poniższy przykład pokazuje, jak w praktyce wykorzystać to makro.

Przykład: Jak utworzyć wykres słupkowy w VBA

Załóżmy, że mamy w Excelu następujący zbiór danych, który zawiera informacje o punktach zdobytych przez różnych koszykarzy:

Załóżmy, że chcemy użyć języka VBA do wygenerowania wykresu słupkowego przy użyciu tego zbioru danych.

W tym celu możemy utworzyć następujące makro:

 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

Aby uruchomić to makro, możemy kliknąć kartę Deweloper na górnej wstążce w programie Excel, a następnie kliknąć Makra .

Następnie możemy kliknąć ten oznaczony CreateBarChart, a następnie kliknąć Uruchom :

Po kliknięciu przycisku Uruchom zostaniemy poproszeni o podanie zakresu wejściowego dla naszego wykresu słupkowego:

Wpiszemy A1:B7 i wciśniemy OK .

Poniższy wykres słupkowy zostanie automatycznie utworzony i wyświetlony z lewym górnym rogiem wykresu znajdującym się w aktualnie aktywnej komórce, którą jest komórka D1 :

Uwaga : Możesz zmienić wartości argumentów Szerokość i Wysokość w funkcji ChartObjects.Add() , aby dostosować odpowiednio szerokość i wysokość wykresu słupkowego.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak policzyć liczbę użytych kolumn