excel -> visio makro starten

09/02/2009 - 11:36 von Soumi | Report spam
Hallo!
ich habe bereits einen post im englischen ms forum gestellt, hoffe
allerdings das mir auch im deutschen forum geholfen werden könnte.

und zwar versuche ich über vba in excel ein makro in visio zu starten.

wie kann ich das?

grüße & danke im voraus
 

Lesen sie die antworten

#1 Chris Roth [Visio MVP]
09/02/2009 - 14:55 | Warnen spam
Hi Suomi,

Probier mal mit "ExecuteLine"

Im folgenden code:

- Visio diagram heisst: "Visio VBA Test.vsd"
- Test-sub heisst: "ThisDocument.VisioTest"

Sub CallVisiomacro()

' Add a reference to: Microsoft Visio 12.0 Type Library

Dim visApp As Visio.Application
Set visApp = New Visio.Application

Dim visDoc As Visio.Document
Set visDoc = visApp.Documents.Open(ThisWorkbook.Path & "\Visio VBA
Test.vsd")

visDoc.ExecuteLine ("ThisDocument.VisioTest")

End Sub


Hope this helps,

Chris Roth
Visio MVP


Visio Guy: Smart Graphics for Visual People

Articles: http://www.visguy.com
Shapes: http://www.visguy.com/shapes
Dev: http://www.visguy.com/category/development/
Forum: http://www.viguy.com/vgforum

Soumi wrote:
Hallo!
ich habe bereits einen post im englischen ms forum gestellt, hoffe
allerdings das mir auch im deutschen forum geholfen werden könnte.

und zwar versuche ich über vba in excel ein makro in visio zu starten.

wie kann ich das?

grüße & danke im voraus

Ähnliche fragen