Nedan kommer vi att titta på två program i Excel VBA . Ett program går igenom alla diagram på ett ark och ändrar varje diagram till ett cirkeldiagram. Det andra programmet ändrar en del egenskaper för det första diagrammet .
1. Skapa några diagram (eller ladda ner Excel -filen).
Placera en kommandoknapp på kalkylbladet och lägg till följande kodrader:
1. Först måste vi deklarera ett ChartObject -objekt. ChartObject -objektet fungerar som en behållare för ett diagramobjekt. Vi kallar ChartObject cht men du kan använda valfritt namn.
IngenchtSomChartObject
2. ChartObjects -samlingen innehåller alla de inbäddade diagrammen på ett enda ark. Vi vill gå igenom alla diagram på det första bladet. Lägg till följande för varje nästa slinga.
årliga nettokassaflöde utmärker sigFör VarjechtIArbetsblad (1) .ChartObjects
Nästacht
3. Diagramobjektet representerar ett diagram i en arbetsbok. Lägg till följande kodrad i slingan För varje nästa för att ändra varje diagram till ett cirkeldiagram.
skapa box och whisker plot excelcht.Chart.ChartType = xlPie
Obs! Återigen fungerar cht som en behållare för diagramobjektet. Vi använder egenskapen ChartType för att ändra diagramtypen. Vi använder den inbyggda konstanten xlPie för att ändra varje diagram till ett cirkeldiagram.
4. Resultat när du klickar på kommandoknappen på arket:
Nu kommer vi att ändra några egenskaper för det första diagrammet.
Placera en annan kommandoknapp på kalkylbladet och lägg till följande kodrader:
5. ChartObjects -samlingen innehåller alla de inbäddade diagrammen på ett enda ark. Lägg till följande kodrad för att aktivera det första diagrammet:
Arbetsblad (1) .ChartObjects (1) .AktiveraVi kan nu hänvisa till detta diagram som ActiveChart.
6. Lägg till följande kodrad för att ändra diagramtiteln.
ActiveChart.ChartTitle.Text = 'Försäljningsrapport'7. Lägg till följande kodrad för att flytta förklaringen till botten av diagrammet:
ActiveChart.Legend.Position = xlBottom8. Resultat när du klickar på kommandoknappen på arket:
formel för att multiplicera två kolumner i excel
Gå till nästa kapitel: Områdeobjekt