Diagram i Excel VBA

Visualisering är mycket viktigt i all data. I excel när vi presenterar data i tabeller och pivot kan det vara svårt för en annan användare att förstå huvudscenariot från data. Så i Excel har vi diagram för att presentera våra uppgifter. Diagram är den visuella representationen av data som finns i rader och kolumner i Excel-arket. Nu vet vi alla hur man sätter in ett diagram i ett Excel-kalkylblad. I det här ämnet kommer vi att lära dig att använda diagram i VBA. Det är lika enkelt som att vi använder diagram i Excel. Nu som i ett kalkylblad där vi har olika typer av diagram för att välja på liknande sätt har vi alla diagram i VBA också som ett objekt. Allt vi behöver göra är att kalla det objektet för att använda det. Vi kan skapa diagram från VBA i samma kalkylblad eller i ett separat diagramark. Det är dock bäst att använda diagram i ett separat ark för att undvika förvirring.

Vad är listorna i VBA? Diagram är enkla objekt i VBA. Vi kan göra två typer av diagram i VBA. En är känd som ett diagramark medan en annan kallas Inbäddade diagram. I diagramarket skapar VBA ett nytt kalkylblad för diagrammet. Vi ger referensdata som är ett annat kalkylblad som källdata. Nu är inbäddade diagram de diagram som finns i samma kalkylblad för data. Nu är kodningen för dessa två typer av diagram något annorlunda än varandra som vi kommer att lära oss i detta ämne. För att använda diagramegenskaperna i VBA använder vi punkt (.) -Symbolen som IntelliSense. Nu måste vi komma ihåg en sak att det finns olika typer av diagram i Excel. Om vi ​​inte tillhandahåller en diagramtyp till vår kod gör VBA automatiskt ett kolumndiagram för oss som standard. Uppenbarligen kan vi ändra det med några kodrader.

Hur skapar jag diagram i Excel VBA?

Låt oss nu lära oss att skapa diagram i Excel VBA med några exempel.

Du kan ladda ner denna VBA-diagram Excel-mall här - VBA-diagram Excel-mall

För alla exemplen kommer vi att ta hänsyn till en data som finns i ark 1 enligt följande,

Excel VBA-diagram - Exempel 1

Låt oss först lära oss hur du sätter in ett diagram i VBA, för detta följer du stegen nedan:

Steg 1: Börja med en delprocedur enligt följande.

Koda:

 Underdiagram1 () Avsluta under

Steg 2: Förklara en variabel som ett diagramobjekt.

Koda:

 Underdiagram1 () Dim Cht As Chart End Sub

Steg 3: För att använda diagrammen måste vi anropa tilläggsmetoden som visas nedan.

Koda:

 Underdiagram1 () Dim Cht As Chart Set Cht = Diagram. Lägg till slut Sub

Steg 4: För att använda kartobjektegenskaper, infoga ett med uttalande i koden som visas nedan.

Koda:

 Underdiagram1 () Dim Cht As Chart Set Cht = Diagram. Lägg till med Cht End With End Sub

Steg 5: Låt oss nu tillhandahålla en källa till detta diagram, börja med en punktoperatör så kommer det att ge oss ytterligare alternativ. Skriv följande kod nedan för att ange en källa för diagrammet.

Koda:

 Underdiagram1 () Dim Cht As Chart Set Cht = Diagram. Lägg till med Cht. SetSourceData Källa: = Sheets ("Sheet1"). Range ("A1: B6") End With End Sub

Steg 6: Kom ihåg att vi inte har angett någon diagramtyp, låt oss först köra ovanstående kod genom att trycka på F5-tangenten och se vilken typ av diagram som ska infogas.

Vi har ett nytt ark skapat som kallas ett diagram och det har vårt diagram i det.

Steg 7: Låt oss nu ge koden den typ av diagram som vi vill använda för denna representation,

Steg 8: Låt oss välja 3D-område för det här exemplet som visas nedan,

Koda:

 Underdiagram1 () Dim Cht As Chart Set Cht = Diagram. Lägg till med Cht. SetSourceData Källa: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End With End Sub

Steg 9: Kör koden genom att trycka på F5-tangenten eller genom att klicka på Play-knappen och kontrollera karttypen i kalkylbladet.

Kom ihåg att varje gång vi kör koden skapar det ett nytt diagramark för oss. Detta är också känt som ett diagramark eftersom det skapar diagram i ett annat ark.

Excel VBA-diagram - Exempel # 2

Låt oss nu göra ett inbäddat diagram som betyder diagram i arket med källdatan. För detta följer du stegen nedan för att skapa ett diagram i Excel VBA.

Steg 1: I samma modul startar en annan delprocess enligt följande.

 Kod: Sub Charts2 () End Sub

Steg 2: Förklara igen en variabel som diagramtyp enligt följande.

Koda:

 Sub Charts2 () Dim Cht1 As Chart End Sub

Steg 3: Skillnaden i de inbäddade diagrammen är att vi hänvisar till kalkylbladet som har data som det aktiva arket med följande kod som visas nedan.

Koda:

 Underdiagram2 () Dim Cht1 Som diagramuppsättning Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub

Steg 4: Nu är resten av att skapa och designa diagramna likadana, vi sätter igen ett Med-uttalande i koden enligt följande.

Koda:

 Underdiagram2 () Dim Cht1 Som diagramuppsättning Cht1 = ActiveSheet.Shapes.AddChart.Chart With Cht1 End With End Sub

Steg 5: Låt oss ange en plats där vårt diagram kommer att vara eftersom vi inte vill att det ska vara över våra uppgifter, så innan Med Statement lägg till följande kod där vi hade ställt in vårt diagram enligt följande.

Koda:

 Underdiagram2 () Dim Cht1 Som diagramuppsättning Cht1 = ActiveSheet.Shapes.AddChart (Vänster: = 200, Bredd: = 300, Top: = 50, Höjd: = 300). Charta med Cht1 End With End Sub

Steg 6: Låt oss nu ange källan för data och diagramtyp som vi vill vara enligt följande.

Koda:

 Underdiagram2 () Dim Cht1 Som diagramuppsättning Cht1 = ActiveSheet.Shapes.AddChart (Vänster: = 200, Bredd: = 300, Top: = 50, Höjd: = 300). Charta med Cht1 .SetSourceData Källa: = Sheets ("Sheet1 ") .Range (" A1: B6 ") .ChartType = xl3DArea End With End Sub

Steg 7: Kör koden genom att trycka på F5-tangenten eller genom att klicka på Play-knappen och se resultatet i vårt ark där informationen är enligt följande.

Detta kallas ett inbäddat diagram eftersom diagrammet finns i samma ark som data.

Excel VBA-diagram - Exempel # 3

Det finns också ett annat sätt att skapa ett diagram i våra kalkylblad med VBA. Den här metoden är känd som ChartsObject-metoden.

Steg 1: Låt oss börja med en tredje delprocess enligt samma modul enligt följande.

Koda:

 Sub Charts3 () Slut Sub

Steg 2: Kona som kalkylbladets datatyp en annan som räckvidd och en som diagramobjekt som visas nedan.

Koda:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject End Sub

Steg 3: Ställ först kalkylbladet där data finns, vilket är ark 1 i det här fallet.

Koda:

 Underdiagram3 () Dim WK som kalkylblad, Rng som räckvidd, Cht3 som diagramObjektuppsättning WK ​​= kalkylblad ("Blad1") Slut Sub

Steg 4: Välj nu det dataområde vi har enligt följande.

Koda:

 Underdiagram3 () Dim WK som arbetsblad, Rng som intervall, Cht3 som diagramObjektuppsättning WK ​​= Arbetsblad ("Blad1") Ställ in Rng = WK.Range ("A1: B6") Slut Sub

Steg 5: Ställ nu in diagramobjektet för att lägga till diagrammet med hjälp av diagramobjektegenskapen enligt följande.

Koda:

 Underdiagram3 () Dim WK som arbetsblad, Rng som räckvidd, Cht3 som diagramObjektuppsättning WK ​​= Arbetsblad ("Blad1") Ställ in Rng = WK.Range ("A1: B6") Ställ in Cht3 = WK.ChartObjects.Add (Vänster: = ActiveCell.Left, Bredd: = 400, Top: = ActiveCell.Top, Höjd: = 200) End Sub

Steg 6: Låt oss nu ge källan till diagrammet enligt följande.

Koda:

 Underdiagram3 () Dim WK som arbetsblad, Rng som räckvidd, Cht3 som diagramObjektuppsättning WK ​​= Arbetsblad ("Blad1") Ställ in Rng = WK.Range ("A1: B6") Ställ in Cht3 = WK.ChartObjects.Add (Vänster: = ActiveCell.Left, Bredd: = 400, Top: = ActiveCell.Top, Höjd: = 200) Cht3.Chart.SetSourceData Källa: = Rng End Sub

Steg 7: Välj den diagramtyp som vi vill på liknande sätt enligt följande.

Koda:

 Underdiagram3 () Dim WK som arbetsblad, Rng som räckvidd, Cht3 som diagramObjektuppsättning WK ​​= Arbetsblad ("Blad1") Ställ in Rng = WK.Range ("A1: B6") Ställ in Cht3 = WK.ChartObjects.Add (Vänster: = ActiveCell.Left, Bredd: = 400, Top: = ActiveCell.Top, Höjd: = 200) Cht3.Chart.SetSourceData Källa: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub

Steg 8: Kör koden genom att trycka på F5-tangenten eller genom att klicka på Play-knappen och se resultatet i blad 1.

Saker att komma ihåg

  • Vi kan bestämma vilken typ av diagram vi vill använda genom att ställa in en diagramtyp.
  • I diagramtyp skapas antalet gånger vi kör koden ett nytt kalkylblad skapas under ett unikt diagramnamn med ett diagram i.
  • Diagramobjektet är också medlem av ark där vi har både diagram och ark.
  • För att använda diagramobjektet måste vi använda ett SET-uttalande för att ställa in diagrammet först.

Rekommenderade artiklar

Detta är en guide till VBA-diagram. Här diskuterar vi hur man skapar diagram i Excel med hjälp av VBA-kod tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA PowerPoint
  2. Excel-kombinationsdiagram
  3. VBA-kontrollfil finns
  4. Excel-kolumndiagram

Kategori:

VBA