Microsoft Visio: Как создать график функции

Microsoft Visio достаточно удобное средство для построения различных диаграмм и рисунков. Но как техническому специалисту иногда возникает задача построить график функции. Встроенных средств для решения этой задачи, поэтому будем решать с помощью Visual Basic.

Шаг 0. Необходимо включить режим разработчика в Visio

Как включается режим разработчика написано в этой статье.

Шаг 1. Создать новый макрос

Для этого на ленте инструментов выбираем "Разработчик", в разделе "Код" нажимаем "Макросы". После нажатия откроется диалоговое окно "Макросы". Придумываем имя макроса и нажимаем кнопку "Создать".

Шаг 2. Написать макрос

В появившемся окне

пишем следующий код:

Sub МойГрафик()
    Dim x As Double, xold As Double
    Dim y As Double, yold As Double
    Dim isFirstPoint As Boolean
    Dim vsoShape As Visio.Shape
    Dim vsoSelection As Visio.Selection

    isFirstPoint = True
    ActiveWindow.DeselectAll
    Set vsoSelection = ActiveWindow.Selection
    For x = 0 To 6.2 Step 0.2 ' ! указать значения аргумента
        y = Sin(x) ' ! вычисляемая функция
        If Not isFirstPoint Then
            Set vsoShape = ActiveWindow.Page.DrawLine(xold, yold, x, y)
            vsoSelection.Select vsoShape, visSelect
        End If
        isFirstPoint = False
        xold = x
        yold = y
    Next x
    vsoSelection.Group
End Sub

Редактор можно закрыть.

Шаг 3. Выполнить макрос

Аналогично шагу 2, открываем окно со списком макросов. Теперь в нём уже будет один созданный нами макрос. Выбираем его и нажимаем "Выполнить".

В нижней части листа появится график функции.