Jak kreslit vektory v makrech aplikace Excel

...

Microsoft Excel je jedním z nejvýkonnějších dostupných tabulkových procesorů a je užitečný pro širokou škálu činností od finanční analýzy po vědecké projekty. Většina lidí si však myslí, že Excel je omezený na manipulaci s mřížkami vzorců, tedy tradiční funkce tabulkového procesoru. Skriptování Visual Basic v Excelu však usnadňuje dělat ještě více. Pomocí VB můžete do tabulky nakreslit jakýkoli tvar, který se vám líbí, a použít je k vytváření kreseb, grafů a další grafiky, která vám pomůže vizualizovat vaši tabulku.

Krok 1

Otevřete aplikaci Microsoft Excel. Pokud máte Excel 2007 nebo novější, přejděte na kartu „Zobrazit“ na pásu karet a klikněte na „Makra“; jinak klikněte na nabídku "Nástroje" a zvolte "Makra". Mělo by se zobrazit dialogové okno Makro.

Video dne

Krok 2

Zadejte název makra a klikněte na „Vytvořit“. Tím by se měl otevřít editor aplikací Visual Basic s novým prázdným podprogramem zobrazeným na obrazovce.

Krok 3

Určete souřadnice X a Y, které chcete použít pro začátek a konec vektoru. Levý horní roh tabulky je na (0, 0) a X a Y se zvyšují, když jdete doprava a dolů. Vložte tyto hodnoty do proměnných, například takto:

start_x = 0 start_y = 0 end_x = 100 end_y = 100

Tyto hodnoty nakreslí diagonální čáru v levém horním rohu tabulky. Možná budete muset experimentovat s různými čísly, abyste dostali řádek přesně tam, kam chcete.

Krok 4

Přidejte kód pro nakreslení samotné čáry:

čára = List1.Tvary. AddLine (start_x, start_y, end_x, end_y)

Krok 5

Přidejte kód pro přidání šipky na konec řádku, aby to vypadalo jako vektor:

čára. Čára. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle

Krok 6

Zavřete editor jazyka Visual Basic a otevřete dialogové okno Makro (viz krok 1). Klikněte na své makro a klikněte na „Spustit“. Měli byste vidět, že se vaše čára objeví.

Spropitné

Proměnnou "line" vytvořenou v kroku 4 můžete použít ke změně dalších vlastností vašeho vektoru. Chcete-li například změnit barvu řádku na zelenou, můžete napsat „řádek. Čára. Barva popředí. RGB = RGB(0; 255; 0)"