How To close Visio file without saving in VBA?

[Gary]

I have open a Visio file and assigned it to DocObj. I have did some copies
and other things to make another visio file.

When I close, Visio ask me do I wish to save and I don't.

I used this VBA code and it doesn't stop the promp.

DocObj.Close
AppVisio.Quit
Set AppVisio = Nothing

How can I close the DocObj without saving (and not getting the prompt)???

Thank You,

Gary

 

[Paul Herber]

I have open a Visio file and assigned it to DocObj. I have did some copies
and other things to make another visio file.

When I close, Visio ask me do I wish to save and I don't.

I used this VBA code and it doesn't stop the promp.

DocObj.Close
AppVisio.Quit
Set AppVisio = Nothing

How can I close the DocObj without saving (and not getting the prompt)???

DocObj.Saved = True
then close etc