Get Cell information from a subshape in a shape

[Marcus Mängel]

Hello,

I created a masteshape with several shapes inside. In two of these shapes is
text included.
I would like to change the text in these shape after the a new shape is
placed in the active sheet. How do I can I adress the subshape to change
this text with vba.

Thanks for Your help

Marcus

 

[sureshsa_2000]

Hi
The answer is

strText = shpObj.Text
iCharBegin = 0
iCharEnd = InStr(strText, Chr(10))
Set ovChars = shpObj.Characters
ovChars.Begin = 0
ovChars.End = iCharEnd -

 

[Marcus Mängel]

Hi,

thank you for your reply but this is not the answer to my question. I was
looking for the way to adress the subshape.
Tanks to Chris Roth I got the answer:
Here his example:
Dim shp as Visio.Shape, shpSub as Visio.Shape
Set shp = Visio.ActiveWindow.Selection(1)

For Each shpSub in shp.Shapes
Debug.Print shpSub.Text
' Oder:
' shpSub.Text = "Woohoo..."
Next shpSub


Marcus