Wykresy VBA - Jak tworzyć wykresy w programie Excel za pomocą kodu VBA?

• Wykresy w Excel VBA

Wykresy w Excel VBA

Wizualizacja jest bardzo ważna we wszystkich danych. W Excelu, gdy prezentujemy dane w tabelach i przestawnych, innym użytkownikom może być trudno zrozumieć główny scenariusz z danych. Dlatego w Excelu mamy wykresy do prezentacji naszych danych. Wykresy to wizualna reprezentacja danych obecnych w wierszach i kolumnach arkusza programu Excel. Teraz wszyscy wiemy, jak wstawić wykres do arkusza programu Excel. W tym temacie nauczymy się korzystać z wykresów w VBA. Jest to tak proste, jak korzystamy z wykresów w programie Excel. Teraz podobnie jak w arkuszu, w którym mamy różne typy wykresów do wyboru, podobnie mamy wszystkie wykresy w VBA również jako obiekt. Wszystko, co musimy zrobić, to wywołać ten obiekt, aby go użyć. Możemy tworzyć wykresy z VBA w tym samym arkuszu lub w osobnym arkuszu wykresów. Jednak zaleca się stosowanie wykresów w osobnym arkuszu, aby uniknąć nieporozumień.

Jakie są wykresy w VBA? Wykresy to proste obiekty w VBA. Możemy stworzyć dwa typy wykresów w VBA. Jeden jest znany jako arkusz wykresu, a drugi jako Osadzone wykresy. W arkuszu wykresu VBA tworzy nowy arkusz dla wykresu. Podajemy dane referencyjne, które są innym arkuszem jako dane źródłowe. Teraz osadzone wykresy to te, które są obecne w tym samym arkuszu danych. Teraz kodowanie tych dwóch typów wykresów różni się nieznacznie od siebie, czego nauczymy się w tym temacie. Aby użyć właściwości wykresu w VBA, używamy symbolu kropki (.) Jako IntelliSense. Teraz musimy pamiętać o jednej rzeczy, że istnieją różne rodzaje wykresów w programie Excel. Jeśli nie podamy w naszym kodzie typu wykresu, VBA automatycznie utworzy dla nas wykres kolumnowy. Oczywiście możemy to zmienić o kilka wierszy kodu.

Jak tworzyć wykresy w Excel VBA?

Teraz nauczmy się tworzyć wykresy w Excel VBA z kilkoma przykładami.

Możesz pobrać ten szablon Excel VBA Charts tutaj - Szablon Excel VBA Charts

Dla wszystkich przykładów rozważymy jedno dane, które są obecne w arkuszu 1 w następujący sposób,

Wykresy Excel VBA - Przykład nr 1

Najpierw nauczmy się, jak wstawiać wykres w VBA, w tym celu wykonaj następujące kroki:

Krok 1: Rozpocznij od podprocedury w następujący sposób.

Kod:

 Wykresy podrzędne 1 () End Sub 

Krok 2: Zadeklaruj jedną zmienną jako obiekt wykresu.

Kod:

 Wykresy podrzędne 1 () Dim Cht As Chart End Sub 

Krok 3: Aby skorzystać z wykresów, musimy wywołać metodę add, jak pokazano poniżej.

Kod:

 Wykresy podrzędne 1 () Dim Cht As Chart Set Cht = Charts.Add End Sub 

Krok 4: Aby użyć właściwości obiektu wykresu, wstaw instrukcję With do kodu, jak pokazano poniżej.

Kod:

 Wykresy podrzędne 1 () Dim Cht As Chart Set Cht = Charts.Add With Cht End With End Sub 

Krok 5: Podajmy teraz źródło tego wykresu, zacznij od operatora kropki, a dostaniemy dalsze opcje. Napisz poniższy kod, aby wprowadzić źródło wykresu.

Kod:

 Wykresy podrzędne 1 () Dim Cht As Chart Set Cht = Charts.Dodaj za pomocą Cht .SetSourceData Źródło: = Arkusze („Arkusz1”). Zakres („A1: B6”) Koniec z końcem Sub 

Krok 6: Pamiętaj, że nie podaliśmy żadnego typu wykresu, najpierw uruchommy powyższy kod, naciskając klawisz F5 i zobaczmy, jaki typ wykresu zostanie wstawiony.

Utworzono nowy arkusz o nazwie Wykres i zawiera on nasz wykres.

Krok 7: Teraz podajmy kodowi rodzaj wykresu, którego chcemy użyć dla tej reprezentacji,

Krok 8: Wybierzmy obszar 3D dla tego przykładu, jak pokazano poniżej,

Kod:

 Wykresy podrzędne 1 () Dim Cht As Chart Set Cht = Charts.Dodaj za pomocą Cht .SetSourceData Źródło: = Arkusze („Arkusz1”). Zakres („A1: B6”) .ChartType = xl3DArea End With End Sub 

Krok 9: Uruchom kod, naciskając klawisz F5 lub klikając przycisk Odtwórz i sprawdź typ wykresu w arkuszu.

Pamiętaj, że za każdym razem, gdy uruchomimy kod, utworzy on dla nas nowy arkusz wykresów. Jest to również znane jako arkusz wykresu, ponieważ tworzy wykresy w innym arkuszu.

Wykresy Excel VBA - Przykład 2

Zróbmy teraz wykres Osadzony, co oznacza wykres w arkuszu danych źródłowych. W tym celu wykonaj poniższe kroki, aby utworzyć wykres w Excel VBA.

Krok 1: W tym samym module rozpocznij kolejną podprocedurę w następujący sposób.

 Code: Sub Charts2 () End Sub 

Krok 2: Ponownie zadeklaruj zmienną jako typ wykresu w następujący sposób.

Kod:

 Wykresy podrzędne 2 () Dim Cht1 As Chart End Sub 

Krok 3: Różnica w osadzonych wykresach polega na tym, że odsyłamy do arkusza roboczego, który ma dane jako aktywny arkusz, za pomocą następującego kodu pokazanego poniżej.

Kod:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub 

Krok 4: Teraz reszta tworzenia i projektowania wykresów jest podobna, ponownie umieszczamy w kodzie instrukcję With w następujący sposób.

Kod:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart.Chart With Cht1 End With End Sub 

Krok 5: Podajmy lokalizację, w której będzie nasz wykres, ponieważ nie chcemy, aby był on nad naszymi danymi, więc przed With Statement dodaj następujący kod do miejsca, w którym ustawiliśmy nasz wykres w następujący sposób.

Kod:

 Wykresy podrzędne 2 () Dim Cht1 jako zestaw wykresów Cht1 = ActiveSheet.Shapes.AddChart (z lewej: = 200, szerokość: = 300, góra: = 50, wysokość: = 300). Wykres z Cht1 zakończony sub 

Krok 6: Podajmy teraz źródło danych i typ wykresu, jak chcemy.

Kod:

 Wykresy podrzędne2 () Dim Cht1 jako zestaw wykresów Cht1 = ActiveSheet.Shapes.AddChart (po lewej: = 200, szerokość: = 300, góra: = 50, wysokość: = 300). Wykres z Cht1 .SetSourceData Źródło: = Arkusze ("Arkusz 1 „) .Range („ A1: B6 ”). ChartType = xl3DArea End With End Sub 

Krok 7: Uruchom kod, naciskając klawisz F5 lub klikając przycisk Odtwórz i zobacz wynik w naszym arkuszu, w którym dane są następujące.

Nazywa się to osadzonym wykresem, ponieważ wykres znajduje się w tym samym arkuszu co dane.

Wykresy Excel VBA - Przykład 3

Istnieje również inny sposób tworzenia wykresów w naszych arkuszach za pomocą VBA. Ta metoda jest znana jako metoda ChartsObject.

Krok 1: W tym samym module zacznijmy od trzeciego podprocedury w następujący sposób.

Kod:

 Wykresy podrzędne 3 () End Sub 

Krok 2: Stożek jako typ danych arkusza roboczego inny jako zakres i jeden jako obiekt wykresu, jak pokazano poniżej.

Kod:

 Wykresy podrzędne 3 () Dim WK As Arkusz, Rng As Range, Cht3 As ChartObject End Sub 

Krok 3: Najpierw ustaw arkusz roboczy w miejscu, w którym znajdują się dane, w tym przypadku jest to arkusz 1.

Kod:

 Wykresy podrzędne 3 () Dim WK As Arkusz, Rng As Range, Cht3 As ChartObject Set WK = Arkusze robocze („Arkusz1”) Koniec Sub 

Krok 4: Teraz wybierz zakres danych, które mamy w następujący sposób.

Kod:

 Wykresy podrzędne 3 () Dim WK As Arkusz, Rng As Range, Cht3 As ChartObject Set WK = Arkusze robocze („Arkusz1”) Ustaw Rng = WK.Range („A1: B6”) End Sub 

Krok 5: Teraz ustaw obiekt wykresu, aby dodawał wykres za pomocą właściwości obiektu wykresu w następujący sposób.

Kod:

 Wykresy podrzędne3 () Dim WK As Arkusz, Rng As Range, Cht3 As ChartObject Set WK = Arkusze robocze („Arkusz1”) Ustaw Rng = WK.Range („A1: B6”) Ustaw Cht3 = WK.ChartObjects.Add (po lewej: = ActiveCell.Left, szerokość: = 400, góra: = ActiveCell.Top, wysokość: = 200) End Sub 

Krok 6: Teraz podajmy źródło wykresu w następujący sposób.

Kod:

 Wykresy podrzędne3 () Dim WK As Arkusz, Rng As Range, Cht3 As ChartObject Set WK = Arkusze robocze („Arkusz1”) Ustaw Rng = WK.Range („A1: B6”) Ustaw Cht3 = WK.ChartObjects.Add (po lewej: = ActiveCell.Left, szerokość: = 400, góra: = ActiveCell.Top, wysokość: = 200) Cht3.Chart.SetSourceData Źródło: = Rng End Sub 

Krok 7: Teraz wybierz typ wykresu, który chcemy w następujący sposób.

Kod:

 Wykresy podrzędne3 () Dim WK As Arkusz, Rng As Range, Cht3 As ChartObject Set WK = Arkusze robocze („Arkusz1”) Ustaw Rng = WK.Range („A1: B6”) Ustaw Cht3 = WK.ChartObjects.Add (po lewej: = ActiveCell.Left, szerokość: = 400, góra: = ActiveCell.Top, wysokość: = 200) Cht3.Chart.SetSourceData Źródło: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub 

Krok 8: Uruchom kod, naciskając klawisz F5 lub klikając przycisk Odtwórz i zobacz wynik w arkuszu 1.

Rzeczy do zapamiętania

• Możemy zdecydować, jakiego rodzaju wykresów chcemy użyć, ustawiając typ wykresu.
• W typie wykresu, ile razy uruchamiamy kod, nowy arkusz roboczy jest tworzony pod unikalną nazwą wykresu z wykresem w nim.
• Obiekt wykresu jest również członkiem arkuszy, w których mamy zarówno wykresy, jak i arkusze.
• Aby użyć obiektu wykresu, musimy najpierw użyć instrukcji SET, aby ustawić wykres.

Polecane artykuły

To jest przewodnik po wykresach VBA. Tutaj omawiamy, jak tworzyć wykresy w programie Excel za pomocą kodu VBA wraz z praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -

1. VBA PowerPoint
2. Wykresy kombinacji Excela
3. Plik sprawdzania VBA istnieje
4. Wykres kolumnowy programu Excel