Printing comments imbedded in shapes

[graciebf]

Visio 2000 - I need to print the comments (on a separate sheet) that I am
imbedded in some of the shapes on my flow chart. I have been able to locate
this option in the program. Can anyone help?

 

[Al Edlund]

if it isn't listed as an option, you may have to write the code to
accomplish it...
al

 

[graciebf]

Al, unfortunately I am a user of the program only and have no experience
writing code. Thank you for taking the time to respond to my request.

Gracie

 

[John Marshall, MVP]

Microsoft has a way of doing it
http://support.microsoft.com/default.aspx?scid=kb;en-ca;898514&sd=rss&spid=2529

--
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

 

[Tahunga]

John,
that's a great link. Unfortunately the procedure does not work for me, as I
am currently using VISIO 2002. When I ran the macro, it came up with a
compile error "Method or Data Member not found" for the procedure line "If
pag.PageSheet.SectionExists(Visio.visSectionAnnotation,
Visio.visExistsAnywhere) Then...." (specifically pointing to
".visSectionAnnotation"). As I am not a developer any more, can you possibly
help me replace any and all of the "Data Members and Methods" in this
procedure not available in Visio 2002 with the appropriate names?

Thanks for your help,

 

[John Marshall, MVP]

In Visio 2003, a new variety of comments were added that are tied to the
page and not to any specific shape.

The article refers to these newer comments.

The following code will display the shapes name and comment (also called
ScreenTips) to the debug window.
Public Sub DisplayComments()

Dim VisPage As Visio.Page
Dim shp As Visio.Shape
Dim sComment As String
For Each VisPage In ActiveDocument.Pages

For Each shp In VisPage.Shapes
sComment = shp.Cells("Comment").ResultStr("")
if sComment <> "" then Debug.Print shp.Name, sComment
Next shp
Next VisPage

End Sub

Now the fun part, how do you place the comments on the page so they can be
printed.
1) You could add the comments to the shapes text, but the original text will
move.
2) you can create a new shape, but how will you know if your new shape will
not cover something existing.
3) You can do something similar as in the other example and just create one
new shape with all the comments in it. The cleanup will mean moving and
resizing the new shape.

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