Microsoft Excel je jedným z najvýkonnejších dostupných tabuľkových programov a je užitočný pre veľké množstvo aktivít od finančnej analýzy až po vedecké projekty. Väčšina ľudí si však myslí, že Excel je obmedzený na manipuláciu s mriežkami vzorcov, t. j. tradičnú funkciu tabuľkového procesora. Skriptovanie Visual Basic v Exceli však uľahčuje robiť ešte viac. Pomocou VB môžete do tabuľky nakresliť ľubovoľný tvar, ktorý sa vám páči, a použiť ich na vytváranie kresieb, grafov a inej grafiky, ktorá vám pomôže vizualizovať tabuľku.
Krok 1
Otvorte program Microsoft Excel. Ak máte Excel 2007 alebo novší, prejdite na kartu „Zobraziť“ na páse s nástrojmi a kliknite na „Makrá“; v opačnom prípade kliknite na ponuku „Nástroje“ a vyberte „Makrá“. Malo by sa zobraziť dialógové okno Makro.
Video dňa
Krok 2
Zadajte názov makra a kliknite na „Vytvoriť“. Toto by malo otvoriť editor aplikácií Visual Basic s novým prázdnym podprogramom zobrazeným na obrazovke.
Krok 3
Určite súradnice X a Y, ktoré chcete použiť na začiatok a koniec vektora. Ľavý horný roh tabuľky je na (0, 0) a X a Y sa zväčšujú, keď idete doprava a nadol. Vložte tieto hodnoty do premenných takto:
začiatok_x = 0 začiatok_y = 0 koniec_x = 100 koniec_y = 100
Tieto hodnoty vykreslia diagonálnu čiaru v ľavom hornom rohu tabuľky. Možno budete musieť experimentovať s rôznymi číslami, aby ste dostali čiaru presne tam, kde chcete.
Krok 4
Pridajte kód na nakreslenie samotnej čiary:
riadok = Hárok1.Tvary. AddLine (start_x, start_y, end_x, end_y)
Krok 5
Pridajte kód na pridanie šípky na koniec riadku, aby to vyzeralo ako vektor:
riadok. Linka. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle
Krok 6
Zatvorte editor jazyka Visual Basic a otvorte dialógové okno Makro (pozri krok 1). Kliknite na svoje makro a kliknite na „Spustiť“. Mali by ste vidieť svoju čiaru.
Tip
Premennú "line" vytvorenú v kroku 4 môžete použiť na zmenu ďalších vlastností vášho vektora. Ak chcete napríklad zmeniť farbu čiary na zelenú, môžete napísať „riadok. Linka. Farba popredia. RGB = RGB(0, 255, 0)"
