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
Добавьте код для рисования самой линии:
line = 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) "
