300 Exempel

Programmeringsscheman

Programming Charts

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).

Programmera diagram i Excel VBA





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 sig
Fö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 excel
cht.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:

Resultat av programmeringsscheman

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) .Aktivera

Vi 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 = xlBottom

8. Resultat när du klickar på kommandoknappen på arket:

Resultat av programmeringsscheman

formel för att multiplicera två kolumner i excel

8/8 klar! Läs mer om böcker och blad>
Gå till nästa kapitel: Områdeobjekt



^