Programmeringskartor i Excel VBA
Nedan ser vi på två program i Excel VBA. Ett program slingor genom alla diagram på ett ark och ändrar varje diagram till ett cirkeldiagram. Det andra programmet ändras lite egenskaper i det första diagrammet.
1. Skapa några diagram (eller hämta Excel-filen).
Placera en kommandoknapp på kalkylbladet och lägg till följande kodlinjer:
1. Först måste vi förklara ett ChartObject-objekt. ChartObject-objektet fungerar som en behållare för ett diagramobjekt. Vi kallar ChartObject cht men du kan använda vilket namn som helst.
2. Samlingen ChartObjects innehåller alla inbäddade diagram på ett enda ark. Vi vill slinga igenom alla kartor på första arket. Lägg till följande för varje nästa slinga.
Next cht
3. Diagramobjektet representerar ett diagram i en arbetsbok. Lägg till följande kodrad i For Each Next-loopen för att ändra varje diagram till ett cirkeldiagram.
Obs! Cht fungerar igen som en behållare för diagramobjektet. Vi använder egenskapen ChartType för att ändra diagramtypen. Vi använder den inbyggda konstanta 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 i det första diagrammet.
Placera en annan kommandoknapp på kalkylbladet och lägg till följande kodlinjer:
5. Samlingen ChartObject innehåller alla inbäddade diagram på ett enda ark. Lägg till följande kodrad för att aktivera det första diagrammet:
Vi kan nu hänvisa till detta diagram som ActiveChart.
6. Lägg till följande kodrad för att ändra diagramtiteln.
7. Lägg till följande kodlinje för att flytta legenden längst ner i diagrammet:
8. Resultat när du klickar på kommandoknappen på arket: