How to get User.ShapeClass

[Steve]

How do I get the value of the field User.ShapeClass?

In VBA I have tried to address it like:

Vshapes.Item(i).Cells("User.PETagFormat.Value")

where Vshapes is my collection of shapes on the page. But I only get a 0 as
value....

Also tried to use

Vshapes.Item(i).CellsSRC("visSectionUser", "visRowUser" + 10,
"visUserValue")

Here I am not all sure about adressing the field - anyway it also doesn't
give the right values.

Any suggestions?

 

[Al Edlund]

well,
to start with the first one, how are you initializing and incrementing the
variable 'i'. The default is probably 0, thus only getting a single value
for i = 0 to vshapes.count
some code....
next i

for the second one, visSectionUser and VisRowUser are constants (integer),
not strings...

Al

 

[Steve]

Well, I have a loop that runs from 1 to Vshapes.count - so I do actually get
to the right shapes. But I can see that I realy messed up the sample
code....

I meant to write:

Vshapes.Item(i).Cells("User.ShapeClass.Value")

But that does not seem to work.

And you are right about the parameters being integers. But still I seem not
to be able to find the ShapeClass value.

I want to use it to filter my data to certain classes. Weird thing is that
some have a ShapeClass like a text string and others have a number.

Steve

 

[Al Edlund]

I usually try to use a format similar to this for when I want to read a cell
property.

If objShape.CellExists("prop.ipaddress", True) Then
strIPAddress =
objShape.Cells("prop.ipaddress").ResultStr("")
End If

you probably would preface it with something like

set objShape = vshapes.item(i)

Al