Cancel Delete

[codequest]

I've got an event procedure based on BeforeShapeDelete.

How can I cancel the delete, based on conditions that I test for in the
procedure?

 

[JuneTheSecond]

Cancel may not be able in "BeforeShapeDelete", but recover may be able.
The macro is a bit long, so please download a sample drawing at,
http://www.mster.co.jp/visiosquare/cgi-bin/upload/image/128.zip

 

[John Marshall, MVP]

I've got an event procedure based on BeforeShapeDelete.

How can I cancel the delete, based on conditions that I test for in the
procedure?

The purpose of the BeforeShapeDelete event is to handle cleanup before the
shape is deleted. At this point, it is too late to cancel the deletion.

The suggestion from Mark Nelson is to "Respond to the QueryCancelPageDelete
event and return True to cancel the deletion"

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm

 

[Michael]

Perfect!!! I was strugling with this one aswell.
Michael

 

[JuneTheSecond]

Me, too. How simple it is!
Private Function Document_QueryCancelSelectionDelete(ByVal Selection As
IVSelection) As Boolean
Document_QueryCancelSelectionDelete = True
End Function