Kako crtati vektore u Excel makronaredbama
Microsoft Excel jedan je od najmoćnijih dostupnih programa za proračunske tablice i koristan je za veliki broj aktivnosti od financijske analize do znanstvenih projekata. Međutim, većina ljudi misli da je Excel ograničen na manipuliranje mrežama formula, tj. tradicionalnu funkcionalnost proračunske tablice. Ali skriptiranje Visual Basica programa Excel olakšava čak i više od toga. Pomoću VB-a možete nacrtati bilo koji oblik koji želite na proračunskoj tablici i koristiti ih za izradu crteža, dijagrama i drugih grafika za pomoć u vizualizaciji vaše proračunske tablice.
1. korak
Otvorite Microsoft Excel. Ako imate Excel 2007 ili noviji, idite na karticu "Prikaz" na vrpci i kliknite "Makronaredbe"; u suprotnom kliknite izbornik "Alati" i odaberite "Makronaredbe". Trebao bi se pojaviti dijaloški okvir Makro.
2. korak
Upišite naziv makronaredbe i kliknite "Stvori". Ovo bi trebalo otvoriti uređivač aplikacija Visual Basic s novom praznom potprogramom prikazanom na zaslonu.
3. korak
Odredite X i Y koordinate koje želite koristiti za početak i kraj vašeg vektora. Gornji lijevi kut proračunske tablice nalazi se na (0, 0), a X i Y se povećavaju kako idete desno odnosno dolje. Stavite ove vrijednosti u varijable, ovako:
početak_x =0 početak_y =0 kraj_x =100 kraj_y =100
Ove vrijednosti nacrtat će dijagonalnu liniju u gornjem lijevom kutu proračunske tablice. Možda ćete morati eksperimentirati s različitim brojevima kako biste dobili liniju točno tamo gdje želite.
4. korak
Dodajte kod za crtanje same linije:
linija =Sheet1.Shapes.AddLine(početak_x, početak_y, kraj_x, kraj_y)
Korak 5
Dodajte kod za dodavanje vrha strelice na kraj retka kako bi izgledao kao vektor:
line.Line.EndArrowheadStyle =MsoArrowheadStyle.msoArrowheadTriangle
Korak 6
Zatvorite uređivač Visual Basic i otvorite dijaloški okvir Macro (pogledajte 1. korak). Kliknite svoju makronaredbu i kliknite "Pokreni". Trebali biste vidjeti kako se pojavljuje vaša linija.
Savjet
Varijablu "linija" stvorenu u koraku 4 možete koristiti za promjenu drugih svojstava vašeg vektora. Na primjer, da promijenite boju linije u zelenu, možete napisati "line.Line.ForeColor.RGB =RGB(0, 255, 0)"