Как да рисувате вектори в макроси на Excel

...

Microsoft Excel е една от най-мощните налични програми за електронни таблици и е полезна за огромно разнообразие от дейности от финансов анализ до научни проекти. Повечето хора обаче смятат, че Excel е ограничен до манипулиране на мрежи от формули, т.е. традиционна функционалност на електронни таблици. Но скриптовете на Visual Basic на Excel улесняват дори повече от това. С VB можете да нарисувате всяка форма, която харесвате в електронната таблица, и да ги използвате за създаване на чертежи, диаграми и други графики, които да ви помогнат да визуализирате вашата електронна таблица.

Етап 1

Отворете Microsoft Excel. Ако имате Excel 2007 или по-нова версия, отидете на раздела „Изглед“ на лентата и щракнете върху „Макроси“; в противен случай щракнете върху менюто "Инструменти" и изберете "Макроси". Диалоговият прозорец Macro трябва да се появи.

Видео на деня

Стъпка 2

Въведете име на макрос и щракнете върху „Създаване“. Това трябва да отвори редактора на приложения на Visual Basic с нова празна подпрограма, показана на екрана.

Стъпка 3

Определете координатите X и Y, които искате да използвате за началото и края на вашия вектор. Горният ляв ъгъл на електронната таблица е в (0, 0), а X и Y се увеличават, когато вървите съответно надясно и надолу. Поставете тези стойности в променливи, както следва:

начало_x = 0 начало_y = 0 край_x = 100 край_y = 100

Тези стойности ще начертаят диагонална линия в горния ляв ъгъл на електронната таблица. Може да се наложи да експериментирате с различни числа, за да получите линията точно там, където искате.

Стъпка 4

Добавете код, за да начертаете самата линия:

линия = Sheet1.Shapes. AddLine (start_x, start_y, end_x, end_y)

Стъпка 5

Добавете код, за да добавите стрелка към края на реда, за да изглежда като вектор:

линия. линия. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle

Стъпка 6

Затворете редактора на Visual Basic и отворете диалоговия прозорец Макрос (вижте Стъпка 1). Щракнете върху вашия макрос и щракнете върху „Изпълни“. Трябва да видите вашата линия да се появи.

Бакшиш

Можете да използвате променливата "line", създадена в стъпка 4, за да промените други свойства на вашия вектор. Например, за да промените цвета на линията на зелен, можете да напишете „линия. линия. ForeColor. RGB = RGB(0, 255, 0)"