help!!!

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Mirko (anonymous_at_discussions.microsoft.com)
Date: 03/16/04 

Date: Tue, 16 Mar 2004 00:14:41 -0800

Hi to everybody.
I have a serious problem.
After having built a net of connected shapes among them
through Connectors, I would like to access the shape ***
properties of the single shape traveling through the
connectors.
Here as I have done:

{code}
…
For curShapeIX = 1 To shpsObj.Count
        Set ShpObj = shpsObj(curShapeIX)
        Set consObj = ShpObj.Connects

        For i = 1 To consObj.Count
            Set conObj = consObj(i)
            Set fromObj = conObj.From***
            fromData = conObj.FromPart
            Set toObj = conObj.To***
            toData = conObj.ToPart
         
            'FromPart property values
            If fromData = visBegin Then
                fromStr = " START IN "
            Else
                If fromData = visEnd Then
                fromStr = " END IN "
                End If
            End If
            Debug.Print fromObj.Master.Name & fromStr &
toObj.Master.Name

            If i = 1 Then
                Set Shape_Start = toObj
            dim myCell as Visio.Cell
    set myCell=toObj.Cells ("Prop.ShapeNumber")
            End If
            If i = 2 Then
                Set Shape_End = toObj
            End If
        Next i
    Next curShapeIX
{/code}

where “Prop.ShapeNumber” is my shape property of all the
shapes in the net.
  
Unfortunately, with the instruction "set
myCell=toObj.Cells ("Prop.ShapeNumber") I get however an
error.
  
Does a way exist, also alternative to this, to access the
properties personalized of the shapes that I reach with
the Connectors?
I thank you so much and in advance.
  
Mirko.

Quantcast