Microsoft Office Excel
uređuje Dragan Grbić

Forsirani grafikon iz VBA procedure

Nivo:
NIVO 4 - Grupa priloga na ovom nivou predstavlja razne ekspertske tehnike rada u Office programima, među kojima se nalaze i one koje nisu uobičajene među većinom korisnika. Većina ovih priloga zahteva veoma napredno poznavanje Windowsa i Officea.

Ako se trudite da totalno upravljate aplikacijom u Excelu iz VBA, ne odričite se takvog pristupa ni kada je reč o posebnim tehnikama analize i prezentacije. Pogledajte kako se pravi grafikon koji je u potpunosti pod kontrolom VBA procedure.

Grafička prezentacija podataka je jedan od idealnih načina brzog uporednog pregleda nekih vrednosti. Uobičajeno je da se grafikon pravi od neke polazne tabele podataka. Međutim, moguće je izvesti grafikon i iz VBA procedure, čak i ako polazna tabela ne postoji. U tom postupku se koristi objektni model koji leži u pozadini svakog grafikona, a to su parametri serija podataka koji se interno pamte kao formule.

Načelno, Excel i dalje očekuje da je grafikon izveden od sadržaja radnog lista, pa ćemo mu zbog toga "podmetnuti" nekakav opseg koji po dimenzijama odgovara formi grafikona; što će to zapravo biti prazno područje radnog lista - nije mnogo bitno, jer se svi parametri popunjavaju direktno. U primeru koji izlažemo postoje četiri serije po četiri podatka; kada tome dodamo zamišljena zaglavlja redova i kolona polazne tabele, to odgovara prostoru 5x5; dakle, kao lažni izvor naznačićemo opseg A1:E5 (ili neki drugi, svejedno, samo da bude tačnih dimenzija).

Procedura koju vidite je školski primer: ovde se grafikon popunjava od nekih konstantnih vrednosti, čisto da biste videli kako to izgleda; pažljivo ispratite komentare u kodu da biste proanalizirali dejstvo komandi i klauzula. Naravno, prave vrednosti mogu biti dobijene kao neki rezultat obrade druge VBA procedure ili pročitane s nekog mesta u radnoj svesci; odavde možete izvesti bezbroj kombinacija...

Uzgred: da biste promenili olbik grafikona, u redu koji određuje oblik (ovde xlColumnClustered) obrišite znak jednakosti i rezervisano ime konstante desno od njega; ponovo unesite znak jednakosti i tada će se pojaviti pomoćna lista u kojoj možete odabrati novo rezervisano ime; eksperimentišite sa tim vrednostima.

Sub NapraviGrafikon()

' Formira se novi list grafikona;
' kasnije će biti prenet u radni list
Charts.Add

' Izbor oblika grafikona
ActiveChart.ChartType = xlColumnClustered

' Izbor lokacije grafikona;
' ovde: radni list Sheet1

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

' Podmećemo lažni izvor podataka,
' pazeći na tačne dimenzije
' po ključu (broj serija+1)x(broj podataka + 1)

ActiveChart.SetSourceData Sheets("Sheet1").Range("A1:E5"), PlotBy:=xlRows

' Populacija vrednosti po serijama
' sintaksa:
' =SERIES("<ime serije>", {<imena podataka>},
'         {<vrednosti podataka>},<redni broj serije>)"

ActiveChart.SeriesCollection(1).Formula = _
  "=SERIES(""podatak 1"",{""a"",""b"",""c"",""d""},{9,3,7,15},1)"
ActiveChart.SeriesCollection(2).Formula = _
  "=SERIES(""podatak 2"",{""a"",""b"",""c"",""d""},{9,3,10,8},2)"
ActiveChart.SeriesCollection(3).Formula = _
  "=SERIES(""podatak 3"",{""a"",""b"",""c"",""d""},{6,11,5,3},3)"
ActiveChart.SeriesCollection(4).Formula = _
  "=SERIES(""podatak 4"",{""a"",""b"",""c"",""d""},{6,9,4,12},3)"

End Sub