Hur man ritar vektorer i Excel-makron

...

Microsoft Excel är ett av de mest kraftfulla kalkylbladsprogram som finns och det är användbart för en mängd olika aktiviteter från finansiell analys till vetenskapliga projekt. Men de flesta människor tänker på Excel som begränsat till att manipulera rutnät av formler, det vill säga traditionella kalkylbladsfunktioner. Men Excels Visual Basic-skript gör det enkelt att göra ännu mer än så. Med VB kan du rita vilken form du vill på kalkylarket och använda dem för att skapa ritningar, diagram och annan grafik för att visualisera ditt kalkylblad.

Steg 1

Öppna Microsoft Excel. Om du har Excel 2007 eller senare, gå till fliken "Visa" på menyfliksområdet och klicka på "Makron"; Annars klickar du på "Verktyg"-menyn och väljer "Makron". Dialogrutan Makro bör visas.

Dagens video

Steg 2

Skriv ett makronamn och klicka på "Skapa". Detta bör öppna Visual Basic-programredigeraren med en ny tom subrutin som visas på skärmen.

Steg 3

Bestäm X- och Y-koordinaterna du vill använda för början och slutet av din vektor. Det övre vänstra hörnet av kalkylarket är vid (0, 0), och X och Y ökar när du går åt höger respektive nedåt. Lägg dessa värden i variabler, så här:

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

Dessa värden kommer att rita en diagonal linje i det övre vänstra hörnet av kalkylarket. Du kan behöva experimentera med olika siffror för att få linjen exakt där du vill.

Steg 4

Lägg till kod för att rita själva linjen:

linje = Ark1.Shapes. AddLine (start_x, start_y, end_x, end_y)

Steg 5

Lägg till kod för att lägga till en pilspets i slutet av raden, så att den ser ut som en vektor:

linje. Linje. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle

Steg 6

Stäng Visual Basic-redigeraren och öppna dialogrutan Makro (se steg 1). Klicka på ditt makro och klicka på "Kör". Du bör se din linje visas.

Dricks

Du kan använda variabeln "line" som skapades i steg 4 för att ändra andra egenskaper hos din vektor. Till exempel, för att ändra linjens färg till grön, kan du skriva "line. Linje. ForeColor. RGB = RGB(0; 255; 0)"