VBA-diagrammer - Sådan oprettes diagrammer i Excel ved hjælp af VBA-kode?

• Diagrammer i Excel VBA

Diagrammer i Excel VBA

Visualisering er meget vigtig i alle data. I excel, når vi præsenterer data i tabeller og dreje, kan det være svært for en anden bruger at forstå hovedscenariet fra dataene. Så i Excel har vi diagrammer til at præsentere vores data. Diagrammer er den visuelle repræsentation af data, der findes i rækker og kolonner på excelarket. Nu ved vi alle, hvordan man indsætter et diagram i et Excel-regneark. I dette emne lærer vi om brugen af ​​diagrammer i VBA. Det er så simpelt som vi bruger diagrammer i Excel. Ligesom i et regneark, hvor vi har forskellige typer diagrammer til at vælge på lignende måde, har vi alle diagrammer i VBA også som et objekt. Alt, hvad vi skal gøre, er at kalde dette objekt for at bruge det. Vi kan lave diagrammer fra VBA i det samme regneark eller i et separat diagramark. Det er dog bedst tilrådeligt at bruge diagrammer i et separat ark for at undgå forvirring.

Hvad er hitkortene i VBA? Diagrammer er enkle objekter i VBA. Vi kan lave to typer diagrammer i VBA. Det ene er kendt som et diagramark, mens det andet er kendt som Indlejrede diagrammer. I diagramarket opretter VBA et nyt regneark til diagrammet. Vi giver referencerne, som er et andet regneark, som kildedata. Nu indlejrede diagrammer er de diagrammer, der findes i det samme regneark med dataene. Nu er kodningen for disse to typer diagrammer lidt anderledes end hinanden, som vi vil lære om dette emne. For at bruge kortegenskaberne i VBA bruger vi prik (.) Symbol som IntelliSense. Nu skal vi huske en ting, at der er forskellige typer diagrammer i Excel. Hvis vi ikke giver en korttype til vores kode, opretter VBA automatisk et kolonnediagram som standard. Det er klart, vi kan ændre det med et par kodelinjer.

Sådan oprettes diagrammer i Excel VBA?

Lad os nu lære, hvordan man laver diagrammer i Excel VBA med et par eksempler.

Du kan downloade denne VBA-diagram Excel-skabelon her - VBA-diagrammer Excel-skabelon

For alle eksemplerne vil vi overveje en data, der er til stede i ark 1 som følger,

Excel VBA-diagrammer - eksempel # 1

Lad os først lære, hvordan du indsætter et diagram i VBA, for dette skal du følge nedenstående trin:

Trin 1: Start med en underprocedure som følger.

Kode:

 Underdiagrammer1 () Afslut under 

Trin 2: Angiv en variabel som et diagramobjekt.

Kode:

 Underdiagrammer1 () Dim Cht As Chart End Sub 

Trin 3: For at bruge diagrammerne er vi nødt til at kalde tilføjelsesmetoden som vist nedenfor.

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Diagrams.Tilføj slutetsub 

Trin 4: Hvis du vil bruge diagramobjektegenskaber, skal du indsætte en With Statement i koden som vist nedenfor.

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Diagrams.Tilføj med Cht Ende med slut Sub 

Trin 5: Lad os nu give en kilde til dette diagram, start med en dot operator, og det vil give os yderligere muligheder. Skriv følgende kode nedenfor for at indtaste en kilde til diagrammet.

Kode:

 Underdiagrammer1 () Dim Cht As Chart Set Cht = Diagrams.Tilføj med Cht. SetSourceData Kilde: = Ark ("Ark1"). Område ("A1: B6") End With End Sub 

Trin 6: Husk nu, at vi ikke har angivet nogen korttype, lad os først køre ovenstående kode ved at trykke på F5-tasten og se, hvilken type kort der indsættes.

Vi har oprettet et nyt ark kaldet et diagram, og det har vores diagram i det.

Trin 7: Lad os nu give koden den type kort, vi vil bruge til denne repræsentation,

Trin 8: Lad os vælge 3D-område til dette eksempel som vist nedenfor,

Kode:

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

Trin 9: Kør koden ved at trykke på F5-tasten eller ved at klikke på knappen Afspil og kontrollere diagramtypen i regnearket.

Husk nu, hver gang vi kører koden, vil det oprette et nyt diagramark til os. Dette er også kendt som et diagramark, fordi det opretter diagrammer i et andet ark.

Excel VBA-diagrammer - eksempel # 2

Lad os nu lave et indbygget diagram, der betyder kort i kildedatabladet. Følg nedenstående trin for at oprette et diagram i Excel VBA.

Trin 1: I det samme modul skal du starte en anden underprocedure som følger.

 Kode: Underdiagrammer2 () Slutundert 

Trin 2: Angiv igen en variabel som diagramtype som følger.

Kode:

 Underdiagrammer2 () Dim Cht1 Som kort slutning Sub 

Trin 3: Forskellen i de indlejrede diagrammer er, at vi refererer til regnearket, der har dataene som det aktive ark, med følgende kode vist nedenfor.

Kode:

 Underdiagrammer2 () Dim Cht1 Som diagram sæt Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub 

Trin 4: Nu er resten af ​​at fremstille og designe kortene ens, vi sætter igen en Med-erklæring i koden som følger.

Kode:

 Underdiagrammer2 () Dim Cht1 Som diagram sæt Cht1 = ActiveSheet.Shapes.AddChart.Chart With Cht1 End With End Sub 

Trin 5: Lad os specificere et sted, hvor vores diagram skal være, da vi ikke ønsker, at det skal være over vores data, så før Med erklæring tilføj følgende kode, hvor vi havde indstillet vores diagram som følger.

Kode:

 Underdiagrammer2 () Dim Cht1 Som kortindstilling Cht1 = ActiveSheet.Shapes.Tilføj tekst (venstre: = 200, bredde: = 300, top: = 50, højde: = 300) .Chart med Cht1 slut med slut sub 

Trin 6: Lad os nu give kilden til de data og korttype, vi vil være, som følger.

Kode:

 Underdiagrammer2 () Dim Cht1 Som kortindstilling Cht1 = ActiveSheet.Shapes.Tilføj tekst (venstre: = 200, bredde: = 300, top: = 50, højde: = 300). Charts med Cht1. SetSourceData Kilde: = Ark ("Ark1" ") .Range (" A1: B6 ") .ChartType = xl3DArea End With End Sub 

Trin 7: Kør koden ved at trykke på F5-tasten eller ved at klikke på knappen Play og se resultatet i vores ark, hvor dataene er som følger.

Dette kaldes et indlejret diagram, da diagrammet er i det samme ark som dataene.

Excel VBA-diagrammer - eksempel # 3

Der er også en anden måde at oprette et diagram på vores regneark ved hjælp af VBA. Denne metode er kendt som ChartsObject-metoden.

Trin 1: Lad os starte med det tredje underprocedure i det samme modul som følger.

Kode:

 Underdiagrammer3 () Slutundert 

Trin 2: Kegle som regnearkdatatype en anden som rækkevidde og en som kortobjekt som vist nedenfor.

Kode:

 Underdiagrammer3 () Dim WK som arbejdsark, Rng Som Range, Cht3 Som ChartObject End Sub 

Trin 3: Indstil først regnearket til hvor dataene er i, hvilket er ark 1 i dette tilfælde.

Kode:

 Underdiagrammer3 () Dim WK som regneark, Rng som rækkevidde, Cht3 som diagramObjekt sæt WK = Arbejdsark ("Ark1") Sluttunder 

Trin 4: Vælg nu det dataområde, vi har, som følger.

Kode:

 Underdiagrammer3 () Dim WK som arbejdsark, Rng som rækkevidde, Cht3 som diagramObjekt-sæt WK = Arbejdsark ("Ark1") Sæt Rng = WK.Range ("A1: B6") Slut Sub 

Trin 5: Indstil nu diagramobjektet for at tilføje diagrammet ved hjælp af diagramobjektegenskabet som følger.

Kode:

 Underdiagrammer3 () Dim WK som arbejdsark, Rng som rækkevidde, Cht3 som diagramObjekt-sæt WK = Arbejdsark ("Ark1") Sæt Rng = WK.Range ("A1: B6") Sæt Cht3 = WK.ChartObjects.Tilføj (Venstre: = ActiveCell.Left, bredde: = 400, Top: = ActiveCell.Top, Højde: = 200) End Sub 

Trin 6: Lad os nu give kilden til diagrammet som følger.

Kode:

 Underdiagrammer3 () Dim WK som arbejdsark, Rng som rækkevidde, Cht3 som diagramObjekt-sæt WK = Arbejdsark ("Ark1") Sæt Rng = WK.Range ("A1: B6") Sæt Cht3 = WK.ChartObjects.Tilføj (Venstre: = ActiveCell.Left, Bredde: = 400, Top: = ActiveCell.Top, Højde: = 200) Cht3.Chart.SetSourceData Kilde: = Rng End Sub 

Trin 7: Vælg den diagramtype, vi ønsker, på lignende måde som følger.

Kode:

 Underdiagrammer3 () Dim WK som arbejdsark, Rng som rækkevidde, Cht3 som diagramObjekt-sæt WK = Arbejdsark ("Ark1") Sæt Rng = WK.Range ("A1: B6") Sæt Cht3 = WK.ChartObjects.Tilføj (Venstre: = ActiveCell.Left, Bredde: = 400, Top: = ActiveCell.Top, Højde: = 200) Cht3.Chart.SetSourceData Kilde: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub 

Trin 8: Kør koden ved at trykke på F5-tasten eller ved at klikke på Play-knappen og se resultatet i ark 1.

Ting at huske

• Vi kan bestemme, hvilken type diagrammer vi vil bruge ved at indstille en diagramtype.
• I korttype oprettes det antal gange, vi kører koden, der oprettes et nyt regneark under et unikt diagramnavn med et diagram i det.
• Diagramobjekt er også et medlem af ark, hvor vi har både diagrammer og ark.
• For at bruge kortobjektet skal vi bruge en SET-sætning til at indstille kortet først.

Anbefalede artikler

Dette er en guide til VBA-diagrammer. Her diskuterer vi, hvordan man opretter diagrammer i Excel ved hjælp af VBA-kode sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

1. VBA PowerPoint
2. Excel-kombinationskort
3. VBA-kontrolfil findes
4. Excel-kolonnediagram