So fügen Sie ein Rechteck in Visio aus Excel hinzu

461
Katto Ishimura

Ich versuche, eine Seite in Visio von Excel aus zu ändern

Ich habe diesen Code probiert, aber ohne Erfolg:

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

Bitte beraten

0

1 Antwort auf die Frage

1
Surrogate

Bitte sehen Sie sich weitere Informationen über die Methode DrawRectangle an 

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

Verwandte Probleme