Reference a Shape's Text

[lq495]

How do you get a shape's text into a variable, when the shape is located on a
different page? I've played around with
Dim vsoCharacters1 As Visio.Characters
vsoCharacters1 =
Application.ActiveWindow.Page(PageName).Shapes.ItemFromID(50).Text
but it only returns "Out of Context"

 

[Paul Herber]

How do you get a shape's text into a variable, when the shape is located on a
different page? I've played around with
Dim vsoCharacters1 As Visio.Characters
vsoCharacters1 =
Application.ActiveWindow.Page(PageName).Shapes.ItemFromID(50).Text
but it only returns "Out of Context"

dim strText as string
strText = Application.ActiveDocument.Page(PageName).Shapes.ItemFromID(50).Text

 

[lq495]

Thanks for your help! The macro recorder saved the day again -here's what was
needed to get that value

Sub GetShapeText()

Application.ActiveWindow.Page =
Application.ActiveDocument.Pages.ItemU("PageName")
Dim vsoCharacters1 As Visio.Characters
Set vsoCharacters1 =
Application.ActiveWindow.Page.Shapes.ItemFromID(50).Characters

End Sub