One Macro needed, Save as VSD and export as PNG

[Jojo]

Hi,
Could someone please put me a tiny script together ...
Here's what I need done.

I'm using MS Visio and I want to save my current files as a VSD file and
then save it again but as a PNG.
The PNG filename would be based on the currently focussed VSD filename.
(i.e. the one I just saved as VSD.)

The problem is
grabbing the filename out of the text string and
adding the PNG foldername and
zapping the VSD extension and
adding the PNG extension and
confirming that I want to squash the existing filename.PNG and yest to any
other options.

I'm no good with VBA. I know it's no big deal.
I could spend an hour on it and get it done.
But I have very little time and a deadline.
That's why I'm asking for help.

TIA

Jojo

 

[JuneTheSecond]

Export method might be an idea.