Process Name

[Timo Gransch]

Hello,

how do I retrieve the display name of a shape? I have a page with one
shape with the display name "Test". The Name, NameID and NameU
properties of the shape don't give me what I want.

Thanks in advance,
Timo

 

[Matt]

Hi Timo

it's Shape.Text

regards
Matt

 

[Timo Gransch]

it's Shape.Text

Unfortunately it isn't. I tried this before, and it returned an empty
string in my case.

Timo

 

[al edlund]

could you show us an example of how you are trying to grab it?
al

 

[Timo Gransch]

could you show us an example of how you are trying to grab it?

Sorry for late reply.

Function StoreVisioShape(oShape As Object, lPageID As Long) As Long
Dim lShapeID As Long

lShapeID=UboundEx(g_aoPages(lPageID).aoVisioShapes)+1
ReDim Preserve g_aoPages(lPageID).aoVisioShapes(lShapeID)

g_aoPages(lPageID).aoVisioShapes(lShapeID).sName=oShape.Text

[...]

StoreVisioShape=lShapeID
End Function

Regards,
Timo

 

[Russ McKenna]

is it the Comment line?

could you show us an example of how you are trying to grab it?

Sorry for late reply.

Function StoreVisioShape(oShape As Object, lPageID As Long) As Long
Dim lShapeID As Long

lShapeID=UboundEx(g_aoPages(lPageID).aoVisioShapes)+1
ReDim Preserve g_aoPages(lPageID).aoVisioShapes(lShapeID)

g_aoPages(lPageID).aoVisioShapes(lShapeID).sName=oShape.Text

[...]

StoreVisioShape=lShapeID
End Function

Regards,
Timo

 

[al edlund]

as a debug technique have you tried putting something like
msgbox oShape.text
before your assignment to see what is returned by the call or
even sooner in the function to test what is being sent.