Export (0) Print
Expand All
Expand Minimize

Shape.SpatialNeighbors Property

Office 2007
Returns a Selection object that represents the shapes that meet certain criteria in relation to a specified shape. Read-only.

Version Information
 Version Added:  Visio 2000

Syntax

expression.SpatialNeighbors(Relation, Tolerance, Flags, ResultRoot)

expression   A variable that represents a Shape object.

Parameters

NameRequired/OptionalData TypeDescription
RelationRequiredIntegerAn integer describing the type of relationship to be used.
ToleranceRequiredDoubleA distance in internal drawing units with respect to the coordinate space defined by the parent shape.
FlagsRequiredIntegerFlags that influence the type of entries returned in results.
ResultRootOptionalVariantA Shape object that represents a page or group.

Return Value
Selection

Remarks

For values of the Relation argument, see the SpatialRelation property topic.

The Flags argument can be any combination of the values of the constants defined in the following table. These constants are also defined in VisSpatialRelationFlags in the Visio type library.

Constant Value Description

visSpatialIncludeDataGraphics

&H40

Includes data graphic callout shapes and their sub-shapes. By default, data graphic callout shapes and their subshapes are not included. If the parent shape is itself a data graphic callout, searches are made between the parent shape's geometry and non-callout shapes, unless this flag is set.

visSpatialIncludeGuides

&H2

Considers a guide's Geometry section. By default, guides do not influence the result.

visSpatialFrontToBack

&H4

Orders items front to back.

visSpatialBackToFront

&H8

Orders items back to front.

visSpatialIncludeHidden

&H10

Considers hidden Geometry sections. By default, hidden Geometry sections do not influence the result.

visSpatialIgnoreVisible

&H20

Does not consider visible Geometry sections. By default, visible Geometry sections influence the result.

Use the NoShow cell to determine whether a Geometry section is hidden or visible. Hidden Geometry sections have a value of TRUE and visible Geometry sections have a value of FALSE in the NoShow cell.

If Relation is not specified, the SpatialNeighbors property uses all the possible relationships as criteria.

Beginning with Visio 2002, if Flags contains VisSpatialFrontToBack, items in the Selection object returned by the SpatialNeighbors property are ordered front to back. If visSpatialBackToFront is set, the items returned are ordered back to front. If this flag is not set, or if you are running an earlier version of Visio, the order is unpredictable. You can determine the order by using the Index property of the shapes identified in the Selection object.

If you don't specify ResultRoot, this property returns a Selection object that represents the shapes that meet certain criteria in relation to the specified shape. If you specify ResultRoot, this property returns a Selection object that represents all the shapes in the Shape object specified by ResultRoot that meet certain criteria in relation to the specified shape. For example, specify ResultRoot to find all shapes within a group that are near a specified shape.

If ResultRoot is specified but isn't on the same page or in the same master as the Shape object to which you are comparing it, the SpatialNeighbors property raises an exception and returns Nothing.

When it compares two shapes, the SpatialNeighbors property does not consider the width of a shape's line, shadows, line ends, control points, or connection points.

Example

This Microsoft Visual Basic for Applications (VBA) example shows how to use the SpatialNeighbors property in an event handler for the ShapeAdded event to determine if one shape is contained within another.

Before adding the following code to your VBA project, add at least one shape to your drawing. Then add another shape to your drawing, either by dragging it from a stencil or drawing it, positioning it so that it is completely contained within an existing shape.

Visual Basic for Applications

Public Sub Document_ShapeAdded(ByVal Shape As IVShape)

    Dim vsoShapeOnPage As Visio.Shape 
    Dim intTolerance As Integer
    Dim vsoReturnedSelection As Visio.Selection 
    Dim strSpatialRelation As String
    Dim intSpatialRelation As VisSpatialRelationCodes 

    On Error GoTo errHandler 

    'Initialize string 
    strSpatialRelation = "" 

    'Set tolerance argument 
    intTolerance = 0.25 

    'Set Spatial Relation argument 
    intSpatialRelation = visSpatialContainedIn 

    'Get the set of spatially related shapes
    'that meet the criteria set by the arguments.
    Set vsoReturnedSelection = Shape.SpatialNeighbors _ 
        (intSpatialRelation, intTolerance, 0) 

    'Evaluate the results.
    If vsoReturnedSelection.Count = 0 Then

        'No shapes met the criteria set by
        'the arguments of the method. 
        strSpatialRelation = Shape.Name & " is not contained." 

    Else

        'Build the positive result string.
        For Each vsoShapeOnPage In vsoReturnedSelection 
            strSpatialRelation = strSpatialRelation & _ 
                Shape.Name & " is contained by " & _ 
                vsoShapeOnPage.Name & Chr$(10) 

        Next
 
    End If  

    'Display the results on the shape added. 
    Shape.Text = strSpatialRelation 

    errHandler: 

End Sub



Community Additions

ADD
Show:
© 2014 Microsoft