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

390
Katto Ishimura

Я пытаюсь изменить страницу в 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

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

0

1 ответ на вопрос

1
Surrogate

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

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

Похожие вопросы