Как рисовать векторы в макросах Excel
Microsoft Excel — одна из самых мощных доступных программ для работы с электронными таблицами, и она полезна для самых разных действий, от финансового анализа до научных проектов. Однако большинство людей думают, что Excel ограничен манипулированием сетками формул, то есть традиционными функциями электронных таблиц. Но сценарии Visual Basic в Excel позволяют сделать даже больше. С помощью VB вы можете рисовать в электронной таблице любые фигуры и использовать их для создания рисунков, диаграмм и других графических объектов, которые помогут визуализировать вашу электронную таблицу.
Шаг 1
Откройте Microsoft Excel. Если у вас Excel 2007 или более поздняя версия, перейдите на вкладку «Вид» на ленте и нажмите «Макросы»; в противном случае щелкните меню «Инструменты» и выберите «Макросы». Должно появиться диалоговое окно макроса.
Шаг 2
Введите имя макроса и нажмите «Создать». Это должно открыть редактор приложений Visual Basic с новой пустой подпрограммой, отображаемой на экране.
Шаг 3
Определите координаты X и Y, которые вы хотели бы использовать для начала и конца вашего вектора. Верхний левый угол электронной таблицы находится в точке (0, 0), а X и Y увеличиваются при движении вправо и вниз соответственно. Поместите эти значения в переменные, например:
start_x =0 start_y =0 end_x =100 end_y =100
Эти значения будут рисовать диагональную линию в верхнем левом углу электронной таблицы. Возможно, вам придется поэкспериментировать с разными числами, чтобы получить линию именно там, где вы хотите.
Шаг 4
Добавьте код для рисования самой линии:
строка =Sheet1.Shapes.AddLine(start_x, start_y, end_x, end_y)
Шаг 5
Добавьте код, чтобы добавить стрелку в конец строки, чтобы она выглядела как вектор:
line.Line.EndArrowheadStyle =MsoArrowheadStyle.msoArrowheadTriangle
Шаг 6
Закройте редактор Visual Basic и откройте диалоговое окно «Макрос» (см. шаг 1). Нажмите на свой макрос и нажмите «Выполнить». Вы должны увидеть свою строку.
Совет
Вы можете использовать переменную «линия», созданную на шаге 4, для изменения других свойств вашего вектора. Например, чтобы изменить цвет линии на зеленый, вы можете написать «line.Line.ForeColor.RGB =RGB(0, 255, 0)»