Create a new Open Visio, & create a new document from VBA

[garybug]

Hello all,

I am trying to open Visio and paste a chart into it from Powerpoint, and from there saving it as a .wmf, or.emf file, all via VBA, not sure of the code though..
I tried creating a new Visio Application via-

Private VS As Visio.Application

-but it wasnt having any of it!

Any advice please?
Thanks

GARYBUG (bzz)

 

[johnwm]

Here's a snippet I used in a VB app - haven't tested it in VBA

Dim visApp As Visio.Application
Dim visDoc As Visio.Document
Set visApp = New Visio.Application
Set visDoc = visApp.Documents.Add("c:\test\bases.vsd&quot
' do your thing here eg:
MsgBox visDoc.DocumentSheet.Name
' Then tidy up
visApp.Quit
Set visDoc = Nothing
Set visApp = Nothing

Good luck!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'