Update Text In Shape

[Barry]

I am using visio automation to create dynamic flow charts.

I have a one text box that I drop at the top of the screen, but need to
modify the description on the fly as I drop new shapes in my diagram.

Can someone tell me how to save the ID number of the first shape I dropped,
and then reference that ID number so I that I can keep replacing the text?

Thanks!
Barry

 

[John Marshall, MVP]

Just name the shape

DIM shp1obj as Visio.Shape
Set shp1obj = ActivePage.DrawRectangle(0, 0, 1, 1.5)

shp1obj.text = "new text"

John... Visio MVP

Need stencils or ideas? http://visio.mvps.org/3rdparty.htm
Need VBA examples? http://visio.mvps.org/VBA.htm
Visio Wishlist http://visio.mvps.org/wish_list.htm

 

[Barry]

Thanks John, I have been looking at this project way to long!



Barry

 

[Chris Roth [MVP]]

Barry,

Some more snippets:

Set shp = page.drop....
iShpId = shp.Id

later on you can get the shape by ID

Visio.ActivePage.Shapes.ItemById( iShpId )

--
Hope this helps,

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/