Kako narisati vektorje v Excelovih makrih

Microsoft Excel je eden najmočnejših razpoložljivih programov za preglednice in je uporaben za veliko različnih dejavnosti, od finančne analize do znanstvenih projektov. Vendar pa večina ljudi meni, da je Excel omejen na manipulacijo mrež formul, tj. tradicionalne funkcije preglednic. Toda Excelovo skriptiranje Visual Basic omogoča enostavno narediti še več kot to. Z VB lahko na preglednico narišete poljubne oblike in jih uporabite za ustvarjanje risb, grafikonov in drugih grafik za pomoč pri vizualizaciji vaše preglednice.

1. korak

Odprite Microsoft Excel. Če imate Excel 2007 ali novejši, pojdite na zavihek »Pogled« na traku in kliknite »Makri«; v nasprotnem primeru kliknite meni »Orodja« in izberite »Makri«. Pojavi se mora pogovorno okno Makro.

2. korak

Vnesite ime makra in kliknite »Ustvari«. To bi moralo odpreti urejevalnik aplikacij Visual Basic z novim praznim podprogramom, prikazanim na zaslonu.

3. korak

Določite koordinate X in Y, ki jih želite uporabiti za začetek in konec vektorja. Zgornji levi kot preglednice je na (0, 0), X in Y pa se povečata, ko greste desno oziroma navzdol. Vnesite te vrednosti v spremenljivke, kot je ta:

začetek_x =0 začetek_y =0 konec_x =100 konec_y =100

Te vrednosti bodo narisale diagonalno črto v zgornjem levem kotu preglednice. Morda boste morali poskusiti z različnimi številkami, da boste črto dobili točno tam, kjer želite.

4. korak

Dodajte kodo za risanje same črte:

vrstica =Sheet1.Shapes.AddLine(start_x, start_y, end_x, end_y)

5. korak

Dodajte kodo, da dodate konico puščice na konec vrstice, da bo videti kot vektor:

line.Line.EndArrowheadStyle =MsoArrowheadStyle.msoArrowheadTriangle

6. korak

Zaprite urejevalnik Visual Basic in odprite pogovorno okno Makro (glejte 1. korak). Kliknite svoj makro in kliknite »Zaženi«. Videti bi morali, da se pojavi vaša vrstica.

Nasvet

Za spreminjanje drugih lastnosti vektorja lahko uporabite spremenljivko "line", ustvarjeno v 4. koraku. Če želite na primer spremeniti barvo črte v zeleno, lahko napišete "line.Line.ForeColor.RGB =RGB(0, 255, 0)"