Zemāk mēs apskatīsim divas programmas Excel VBA. Viena programma cilpas cauri visām diagrammām uz lapas un katru diagrammu maina uz sektoru diagrammu. Otra programma dažus maina pirmās diagrammas īpašības.
1. Izveidojiet dažas diagrammas (vai lejupielādējiet Excel failu).
Ievietojiet komandas pogu darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mums ir jādeklarē ChartObject objekts. Objekts ChartObject darbojas kā diagrammas objekta konteiners. Mēs saucam ChartObject cht, bet jūs varat izmantot jebkuru nosaukumu.
Dim cht Kā ChartObject
2. ChartObjects kolekcija satur visas iegultās diagrammas vienā lapā. Mēs vēlamies apskatīt visas diagrammas pirmajā lapā. Katrai nākamajai cilpai pievienojiet šādu.
Katram cht darblapās (1). Diagrammas objekti
Nākamais cht
3. Objekts Diagramma attēlo diagrammu darbgrāmatā. Pievienojiet šādu koda rindiņu cilnei Katram nākamajam, lai katru diagrammu mainītu uz sektoru diagrammu.
cht.Chart.ChartType = xlPie
Piezīme: atkal cht darbojas kā diagrammas objekta konteiners. Mēs izmantojam rekvizītu ChartType, lai mainītu diagrammas veidu. Mēs izmantojam iebūvēto konstantu xlPie, lai mainītu katru diagrammu uz sektoru diagrammu.
4. Rezultāts, noklikšķinot uz komandas pogas lapā:
Tagad mēs mainīsim dažus pirmās diagrammas rekvizītus.
Darblapā ievietojiet citu komandu pogu un pievienojiet šādas koda rindiņas:
5. ChartObjects kolekcija satur visas iegultās diagrammas vienā lapā. Lai aktivizētu pirmo diagrammu, pievienojiet šādu koda rindiņu:
Darblapas (1). DiagrammaObjekti (1). Aktivizēt
Tagad mēs varam atsaukties uz šo diagrammu kā ActiveChart.
6. Lai mainītu diagrammas nosaukumu, pievienojiet šādu koda rindiņu.
ActiveChart.ChartTitle.Text = "Pārdošanas pārskats"
7. Lai pārvietotu leģendu uz diagrammas apakšdaļu, pievienojiet šādu koda rindiņu:
ActiveChart.Legend.Position = xlBottom
8. Rezultāts, noklikšķinot uz komandas pogas lapā:
