VBA-diagrammer - Hvordan lage diagrammer i Excel ved hjelp av VBA-kode?

• Diagrammer i Excel VBA

Diagrammer i Excel VBA

Visualisering er veldig viktig i alle data. Når vi presenterer data i tabeller og pivot, kan det være vanskelig for en annen bruker å forstå hovedscenariet fra dataene. Så i Excel har vi diagrammer for å presentere dataene våre. Diagrammer er den visuelle representasjonen av data som er til stede i rader og kolonner på excelarket. Nå vet vi alle hvordan du setter inn et diagram i et Excel-regneark. I dette emnet vil vi lære om bruk av diagrammer i VBA. Det er så enkelt som at vi bruker diagrammer i Excel. Nå som i et arbeidsark hvor vi har forskjellige typer diagrammer for å velge på samme måte, har vi alle diagrammer i VBA også som objekt. Alt vi trenger å gjøre er å kalle det objektet for å bruke det. Vi kan lage diagrammer fra VBA i samme regneark eller i et eget diagramark. Det er imidlertid mest lurt å bruke diagrammer i et eget ark for å unngå forvirring.

Hva er listene i VBA? Diagrammer er enkle objekter i VBA. Vi kan lage to typer diagrammer i VBA. Det ene er kjent som et diagramark, mens det andre er kjent som innebygde diagrammer. I diagramarket lager VBA et nytt arbeidsark for diagrammet. Vi gir referansedata som er et annet arbeidsark som kildedata. Nå innebygde diagrammer er diagrammer som finnes i samme regneark med dataene. Nå er kodingen for disse to typene kart litt forskjellig fra hverandre som vi vil lære om dette emnet. For å bruke kartegenskapene i VBA bruker vi prikk (.) Symbol som IntelliSense. Nå må vi huske en ting om at det er forskjellige typer diagrammer i Excel. Hvis vi ikke oppgir en diagramtype til koden vår, lager VBA automatisk et kolonnediagram for oss som standard. Det er klart at vi kan endre det med noen få kodelinjer.

Hvordan lage diagrammer i Excel VBA?

La oss nå lære hvordan du lager diagrammer i Excel VBA med noen få eksempler.

Du kan laste ned denne VBA Charts Excel Template her - VBA Charts Excel Template

For alle eksemplene vil vi vurdere en data som er til stede i ark 1 som følger,

Excel VBA-diagrammer - eksempel # 1

La oss først lære hvordan du setter inn et diagram i VBA, for dette følger du trinnene nedenfor:

Trinn 1: Start med en underprosess som følger.

Kode:

 Underdiagrammer1 () Slutt Under 

Trinn 2: Erklær en variabel som et diagramobjekt.

Kode:

 Underdiagrammer1 () Dim Cht As Chart End Under 

Trinn 3: For å bruke diagrammene må vi kalle tilleggsmetoden som vist nedenfor.

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Diagrams.Til slutt slutt 

Trinn 4: Hvis du vil bruke diagramobjektegenskaper, setter du inn en med uttalelse i koden som vist nedenfor.

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Diagrams.Legg til med Cht End With End Sub 

Trinn 5: La oss nå gi en kilde til dette diagrammet, begynn med en prikkoperatør og det vil gi oss flere alternativer. Skriv følgende kode nedenfor for å oppgi en kilde for diagrammet.

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Diagrams.Legg til med Cht. SetSourceData Kilde: = Sheets ("Sheet1"). Range ("A1: B6") End With End Sub 

Trinn 6: Husk at vi ikke har oppgitt noen diagramtype. La oss først kjøre koden ovenfor ved å trykke på F5-tasten og se hvilken type kart som blir satt inn.

Vi har et nytt ark laget kalt et diagram, og det har vårt diagram i det.

Trinn 7: La oss nå gi koden den typen kart vi ønsker å bruke for denne representasjonen,

Trinn 8: La oss velge 3D-område for dette eksempelet som vist nedenfor,

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Charts.Tillegg med Cht .SetSourceData Kilde: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End With End Sub 

Trinn 9: Kjør koden ved å trykke på F5-tasten eller ved å klikke på Spill-knappen og sjekk karttypen i arbeidsarket.

Husk hver gang vi kjører koden, det vil lage et nytt diagramark for oss. Dette er også kjent som et diagramark fordi det oppretter diagrammer i et annet ark.

Excel VBA-diagrammer - eksempel # 2

La oss nå lage et innebygd diagram som betyr diagram i arket med kildedataene. Følg trinnene nedenfor for å lage et diagram i Excel VBA.

Trinn 1: I samme modul start en annen underprosess som følger.

 Kode: Underdiagram2 () Slutt under 

Trinn 2: Erklær igjen en variabel som diagramtype som følger.

Kode:

 Underdiagram2 () Dim Cht1 As Chart End Sub 

Trinn 3: Forskjellen i de innebygde sjøkartene er at vi refererer til regnearket som har dataene som det aktive arket ved følgende kode vist nedenfor.

Kode:

 Underdiagram2 () Dim Cht1 Som kartsett Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub 

Trinn 4: Nå er resten av å lage og designe diagrammer likt, vi setter igjen en With Statement i koden som følger.

Kode:

 Underdiagram2 () Dim Cht1 Som kartsett Cht1 = ActiveSheet.Shapes.AddChart.Chart With Cht1 End With End Sub 

Trinn 5: La oss spesifisere et sted der diagrammet vårt skal være ettersom vi ikke ønsker at det skal være over dataene våre, så før med uttalelse, legg til følgende kode der vi hadde satt vårt diagram som følger.

Kode:

 Underdiagram2 () Dim Cht1 Som kartoppsetting Cht1 = ActiveSheet.Shapes.AddChart (Venstre: = 200, Bredde: = 300, Topp: = 50, Høyde: = 300). Kart med Cht1 End With End Sub 

Trinn 6: La oss nå oppgi kilden til dataene og karttypen vi ønsker å være som følger.

Kode:

 Underdiagram2 () Dim Cht1 Som kartsett Cht1 = ActiveSheet.Shapes.AddChart (Venstre: = 200, Bredde: = 300, Topp: = 50, Høyde: = 300). Kart med Cht1. SetSourceData Kilde: = Ark ("Ark1" "). Ordne (" A1: B6 ") .ChartType = xl3DArea End With End Sub 

Trinn 7: Kjør koden ved å trykke på F5-tasten eller ved å klikke på Spill-knappen og se resultatet i vårt ark der dataene er som følger.

Dette kalles et innebygd diagram da diagrammet er i samme ark som dataene.

Excel VBA-diagrammer - eksempel # 3

Det er også en annen måte å lage et diagram i arbeidsarkene våre ved å bruke VBA. Denne metoden er kjent som ChartsObject-metoden.

Trinn 1: La oss starte med en tredje delprosess på samme modul som følger.

Kode:

 Sub Charts3 () Slutt Sub 

Trinn 2: Kegle som regnearkdatatype, skriv inn et annet som område og ett som diagramobjekt som vist nedenfor.

Kode:

 Underdiagram3 () Dim WK som arbeidsark, Rng som rekkevidde, Cht3 som diagramObjekt Slutt Sub 

Trinn 3: Sett først regnearket til hvor dataene er i, som er ark 1 i dette tilfellet.

Kode:

 Underdiagram3 () Dim WK som regneark, Rng som rekkevidde, Cht3 som diagramObjektsett WK = Arbeidsark ("Ark1") Slutt sub 

Trinn 4: Velg dataområdet vi har som følger.

Kode:

 Underdiagram3 () Dim WK som regneark, Rng som rekkevidde, Cht3 som diagramObjektsett WK = Arbeidsark ("Ark1") Sett Rng = WK.Range ("A1: B6") Slutt Sub 

Trinn 5: Sett nå diagramobjektet til å legge til diagrammet ved hjelp av diagramobjektegenskapen som følger.

Kode:

 Underdiagram3 () Dim WK som arbeidsark, Rng som rekkevidde, Cht3 Som ChartObject Set WK = Worksheets ("Sheet1") Sett Rng = WK.Range ("A1: B6") Sett Cht3 = WK.ChartObjects.Add (Venstre: = ActiveCell.Left, Bredde: = 400, Topp: = ActiveCell.Top, Høyde: = 200) End Sub 

Trinn 6: La oss nå gi kilden til diagrammet som følger.

Kode:

 Underdiagram3 () Dim WK som arbeidsark, Rng som rekkevidde, Cht3 Som ChartObject Set WK = Worksheets ("Sheet1") Sett Rng = WK.Range ("A1: B6") Sett Cht3 = WK.ChartObjects.Add (Venstre: = ActiveCell.Left, Bredde: = 400, Topp: = ActiveCell.Top, Høyde: = 200) Cht3.Chart.SetSourceData Kilde: = Rng End Sub 

Trinn 7: Velg karttypen vi ønsker på lignende måte som følger.

Kode:

 Underdiagram3 () Dim WK som arbeidsark, Rng som rekkevidde, Cht3 Som ChartObject Set WK = Worksheets ("Sheet1") Sett Rng = WK.Range ("A1: B6") Sett Cht3 = WK.ChartObjects.Add (Venstre: = ActiveCell.Left, Bredde: = 400, Topp: = ActiveCell.Top, Høyde: = 200) Cht3.Chart.SetSourceData Kilde: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub 

Trinn 8: Kjør koden ved å trykke på F5-tasten eller ved å klikke på Spill-knappen og se resultatet i ark 1.

Ting å huske

• Vi kan bestemme hvilken type diagrammer vi vil bruke ved å sette inn en diagramtype.
• I diagramtype blir antall ganger vi kjører koden opprettet et nytt regneark under et unikt kartnavn med et diagram i.
• Kartobjekt er også medlem av ark der vi har både diagrammer og ark.
• For å bruke kartobjektet må vi bruke en SET-setning for å sette diagrammet først.

Anbefalte artikler

Dette er en guide til VBA-diagrammer. Her diskuterer vi hvordan du lager diagrammer i Excel ved hjelp av VBA-kode sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

1. VBA PowerPoint
2. Excel-kombinasjonsdiagrammer
3. VBA-sjekkfil eksisterer
4. Excel kolonnediagram