Как добавить прямоугольник в Visio из Excel

Question

Я пытаюсь изменить страницу в Visio из Excel

Я попробовал этот код, но безуспешно:

Sub DrawMyRectangles()
    Dim draw_visio As Object
    Set draw_visio = CreateObject("visio.application")
    Dim rect1 As Visio.Shape

    Set rect1 = draw_visio.DrawRectangle(0, 0, 1, 1)
    rect1.Text = "Hello World"
End Sub

пожалуйста, порекомендуйте

Answer 1

Пожалуйста, смотрите больше информации о методе DrawRectangle

Set rect1 = draw_visio.ActiveWindow.Page.DrawRectangle(0, 0, 1, 1)