Anyone know why the Shape object can't be passed in a script ?

[Kalisto]

OK, the forum ID with my code sample in is thread707-625471

If I write a SUbroutine in my class that takes a string as a parameter it works, but the subroutine which takes a Shape as an object fails miserably.

Anyone any ideas why ?
(The only difference at present betwwen my 2 subs is that 1 has T as String in the header, adn the other has T as Shape

Anyone know, this has een driving me mad all day !

K

 

[DanielKSmith]

Hello,
I've pasted in a little function that I've written as you can see it takes a shape as a parameter

Public Function ExtractValue(ByVal Shape As Visio.Shape, ByVal Cell As String) As Double
Dim visCell As Visio.Cell
Dim dValue As Double

visCell = Shape.Cells(Cell)
dValue = visCell.Result(Visio.VisUnitCodes.visMillimeters)
Return dValue
End Function