Excel에서 Visio에 사각형을 추가하는 방법

Question

Excel에서 Visio의 페이지를 수정하려고 합니다.

이 코드를 시도했지만 성공하지 못했습니다.

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

방법에 대한 자세한 정보를 찾아보십시오그리기사각형

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