VBA diagramos - Pavyzdžiai, kaip pridėti diagramą naudojant VBA kodą

„Excel VBA“ diagramos

Diagramas galima vadinti objektais VBA, panašiai kaip ir darbalapyje, taip pat galime įterpti diagramas į VBA, pirmiausia mes pasirenkame norimus duomenis ir diagramos tipą, o dabar yra du skirtingi diagramų tipai yra įdėta diagrama, kur diagrama yra tame pačiame duomenų lape, o kita yra vadinama diagramos lapu, kur diagrama yra atskirame duomenų lape.

Atliekant duomenų analizę, vizualiniai efektai yra pagrindiniai analizę atlikusio asmens veiklos rodikliai. Vaizdai yra geriausias būdas, kurį analitikas gali perduoti savo žinutei. Kadangi visi esame „Excel“ vartotojai, paprastai mes praleidžiame daug laiko analizuodami duomenis ir darydami išvadas skaičiais ir diagramomis. Diagramų kūrimas yra menas, kurį reikia įvaldyti, ir tikiuosi, kad turite gerų žinių apie diagramų kūrimą naudojant „Excel“. Šiame straipsnyje mes parodysime, kaip kurti diagramas naudojant VBA kodavimą.

Kaip pridėti diagramas naudojant VBA kodą „Excel“?

1 - sukurkite diagramą naudodami VBA kodavimą

Norėdami sukurti bet kurią diagramą, turėtume turėti tam tikrus skaitmeninius duomenis. Šiame pavyzdyje ketinu naudoti toliau pateiktus pavyzdinius duomenis.

Gerai, pereikime prie VBA redaktoriaus.

1 veiksmas: pradėkite antrinę procedūrą.

Kodas:

Antrinės diagramos_pavyzdys1 () Pabaigos sub

2 žingsnis: Apibrėžkite kintamąjį kaip diagramą.

Kodas:

Antrinės diagramos_pavyzdys1 () pritemdyti mano diagramą kaip diagramos pabaigos antrinę dalį

3 žingsnis: Kadangi diagrama yra objekto kintamasis, turime ją nustatyti .

Kodas:

Sub diagramos_pavyzdys1 () pritemdykite „MyChart“ kaip diagramą „MyChart“ = diagramos.

Minėtas kodas pridės naują lapą kaip diagramos lapą, o ne kaip darbalapį.

4 žingsnis: Dabar turime sukurti diagramą. Atidaryti su pareiškimu.

Kodas:

Antrinės diagramos_pavyzdys1 () pritemdyti „MyChart“ kaip diagramą „MyChart“ = diagramos. Pridėti su „MyChart“ pabaiga su pabaigos dalimi

5 žingsnis: Pirmas dalykas, kurį reikia padaryti diagramoje, yra nustatyti šaltinio diapazoną pasirinkdami metodą „Nustatyti šaltinio duomenis“ .

Kodas:

Sub diagramos_pavyzdys1 () pritemdyti „MyChart“ kaip diagramą Nustatykite „MyChart“ = diagramos. Pridėti su „MyChart“ .SetSourceData pabaiga su pabaiga Sub

6 žingsnis: Čia turime paminėti šaltinių diapazoną. Šiuo atveju mano šaltinio diapazonas yra lape pavadinimu „Sheet1“, o diapazonas yra nuo „A1 iki B7“.

Kodas:

Antrinės diagramos_pavyzdys1 () pritemdyti „MyChart“ kaip diagramą „MyChart“ = „Charts“. Pridėti su „MyChart“ .SetSourceData Sheets („Sheet1“). Diapazonas („A1: B7“) baigiasi pabaiga Sub

7 žingsnis: Toliau turime pasirinkti diagramos rūšį, kurią sukursime. Tam turime pasirinkti „ Chart Type“ ypatybę.

Kodas:

Sub diagramos_pavyzdys1 () pritemdyti „MyChart“ kaip diagramą „MyChart“ = „Charts“. Pridėti su „MyChart“ .SetSourceData Sheets („Sheet1“). Diapazonas („A1: B7“) .ChartType = pabaiga su End Sub

8 žingsnis: Čia mes turime įvairių diagramų. Aš pasirenku diagramą „ xlColumnClustered “.

Kodas:

Antrinės diagramos_pavyzdys1 () pritemdyti „MyChart“ kaip diagramą „MyChart“ = „Charts“. Pridėti su „MyChart“ .SetSourceData Sheets („Sheet1“). Diapazonas („A1: B7“) .ChartType = xlColumnClustered pabaiga su pabaigos antrine dalimi

Gerai, šiuo metu paleiskime kodą naudodami klavišą F5 arba rankiniu būdu ir pažiūrėkime, kaip diagrama atrodo.

9 žingsnis: Dabar pakeiskite kitas diagramos savybes. Norėdami pakeisti diagramos pavadinimą, žemiau yra kodas.

Panašiai turime daug savybių ir metodų su diagramomis. Norėdami pamatyti poveikį ir sužinoti, naudokite kiekvieną iš jų.

Sub diagramos_pavyzdys1 () pritemdykite „MyChart“ kaip diagramą „MyChart“ = „Charts“. Pridėkite naudodami „MyChart“ .SetSourceData Sheets („Sheet1“). Diapazonas („A1: B7“) .ChartType = xlColumnClustered .ChartTitle.Text = "Pardavimų našumas" Pabaigoje Pabaiga

2 - sukurkite diagramą su tuo pačiu „Excel“ lapu kaip ir forma

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:

Antrinės diagramos_pavyzdys3 () „Dim Ws“ kaip darbalapis „Dim Rng“ kaip diapazonas „Dim“ diagrama kaip diagrama ActiveCell.Left, plotis: = 400, viršus: = ActiveCell.Top, aukštis: = 200) MyChart.Chart.SetSourceData Source: = Rng MyChart.Chart.ChartType = xlColumnStacked MyChart.Chart.ChartTitle.Text = "Pardavimų našumas" Sub

Įdomios straipsniai...