Deleting comments from Visio diagram in VBA

[Marcw]

I haven't been able to find any sample code to remove comments from a
Visio diagram. Can someone please help?

Thanks in advance.

Marc

 

[John Marshall, MVP]

To get rid of the first comment

ActivePage.PageSheet.DeleteRow visSectionAnnotation, 0

(Use the macro recorder if you every need to figure out what the code should
work.)

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
Visio Wishlist http://www.mvps.org/visio/wish_list.htm

 

[Marcw]

Thanks. I had run the macro recorder but wasn't sure how to remove all
of the comments mainly by being lazy. I have no imlemented the
following which appears to work as desired:

For Each myVisioPage In myVsoApp.ActiveDocument.Pages
If myVisioPage.PageSheet.SectionExists(Visio.visSectionAnnotation,
Visio.visExistsAnywhere) Then
For nCounter = 0 To
myVisioPage.PageSheet.RowCount(Visio.visSectionAnnotation) - 1
myVisioPage.PageSheet.DeleteRow visSectionAnnotation, 0
Next nCounter
End If
Next

Marc