Vektorok rajzolása Excel makrókban

A Microsoft Excel az egyik legerősebb elérhető táblázatkezelő program, és a pénzügyi elemzéstől a tudományos projektekig sokféle tevékenységhez hasznos. A legtöbb ember azonban úgy gondolja, hogy az Excel a képletrácsok manipulálására korlátozódik, azaz a hagyományos táblázatkezelési funkciókra. De az Excel Visual Basic szkriptjével még ennél is egyszerűbb megtenni. A VB segítségével tetszőleges alakzatot rajzolhat a táblázatra, és felhasználhatja őket rajzok, diagramok és egyéb grafikák létrehozására, amelyek segítik a táblázat megjelenítését.

1. lépés

Nyissa meg a Microsoft Excelt. Ha Excel 2007 vagy újabb verziója van, lépjen a szalag "Nézet" lapjára, és kattintson a "Makrók" elemre; ellenkező esetben kattintson az "Eszközök" menüre, és válassza a "Makrók" lehetőséget. Meg kell jelennie a Makró párbeszédpanelnek.

2. lépés

Írja be a makró nevét, és kattintson a "Létrehozás" gombra. Ezzel meg kell nyitnia a Visual Basic alkalmazásszerkesztőjét egy új üres szubrutinnal a képernyőn.

3. lépés

Határozza meg az X és Y koordinátákat, amelyeket használni szeretne a vektor kezdetéhez és végéhez. A táblázat bal felső sarka a (0, 0) helyen van, és X és Y növekszik, ahogy jobbra, illetve lefelé halad. Helyezze ezeket az értékeket változókba, így:

kezdet_x =0 kezdet_y =0 vége_x =100 vége_y =100

Ezek az értékek átlós vonalat húznak a táblázat bal felső sarkában. Előfordulhat, hogy különböző számokkal kell kísérleteznie, hogy a vonal pontosan a kívánt helyre kerüljön.

4. lépés

Adjon hozzá kódot magának a vonalnak a megrajzolásához:

sor =Sheet1.Shapes.AddLine(kezd_x, kezdet_y, vége_x, vége_y)

5. lépés

Adjon hozzá kódot, hogy egy nyílhegyet adjon a sor végéhez, hogy az vektornak tűnjön:

line.Line.EndArrowheadStyle =MsoArrowheadStyle.msoArrowheadTriangle

6. lépés

Zárja be a Visual Basic szerkesztőt, és nyissa meg a Makró párbeszédpanelt (lásd az 1. lépést). Kattintson a makróra, majd kattintson a "Futtatás" gombra. Látnia kell a vonalat.

Tipp

A 4. lépésben létrehozott "vonal" változóval módosíthatja a vektor egyéb tulajdonságait. Ha például a vonal színét zöldre szeretné változtatni, írja be a következőt:"line.Line.ForeColor.RGB =RGB(0, 255, 0)"