Macro Needed, Two Saves in One

[Jojo]

Hi,
I need some help.
Workin with Visio 2003 and Win XP ...

I have a Visio page open and I have saved it once already as a VSD file, so
it already has a filename with a aVSD extension.

Now I'd like to be able to click a macro button that does this

Application.ActiveDocument.Save

then this

Application.ActiveWindow.Page.Export "C:\Documents and Settings\Visio
Stuff\PNG\SameFileNameAsVisioFileName.png"

i.e. Export the file (keeping the same filename as the VSD name) but as a
PNG (with a PNG extension ) in my PNG subfolder .

And have this available when I create my next new VSD file ...

Any help appreciated.

TIA
Jojo

 

[Graham Mayor]

What does this have to do with Microsoft Word? Ask in the Visio forum.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Jojo]

Ooops ! and Yes I made a mistake.
Sorry a bout that.
What did you want me to do, apologise in advance ?

Why do these MVPs have to be so damned cocky ?
Jojo.