J
Junkstyle
This is the only code I need to run:
Dim ovApp As Visio.InvisibleApp
Dim ovDoc As Visio.Document
Set ovApp = CreateObject("Visio.InvisibleApp")
Set ovDoc = ovApp.Documents.Open("D:\tmp\Drawing1.svg")
ovDoc.SaveAs "D:\tmp\Drawing1.vsd"
ovDoc.Close
ovApp.Quit
what would be the bear minimal install of Visio to enable this automation.
Visio doesn't need to be running or usable. I just run a VB.exe to do this.
Thanks.
Dim ovApp As Visio.InvisibleApp
Dim ovDoc As Visio.Document
Set ovApp = CreateObject("Visio.InvisibleApp")
Set ovDoc = ovApp.Documents.Open("D:\tmp\Drawing1.svg")
ovDoc.SaveAs "D:\tmp\Drawing1.vsd"
ovDoc.Close
ovApp.Quit
what would be the bear minimal install of Visio to enable this automation.
Visio doesn't need to be running or usable. I just run a VB.exe to do this.
Thanks.