Does anyone have a code snippet that, given two objects, will tell if one is
overlapping the other?

Thanks,
Rob Hutchison

Try the HitTest example at www.magma.ca/~lancucki/Visio_VBA_Information.htm

John...    Visio MVP

Need stencils or ideas? http://www.magma.ca/~lancucki/Visio3rdparty.htm
Need VBA examples?   http://www.magma.ca/~lancucki/Visio_VBA_Information.htm

www.magma.ca/~lancucki/Visio_VBA_Information.htm
Wouldnt Shape.BoundingBox be more elegant and faster? Or doesnt BoundingBox
work?

Stefan

http://www.magma.ca/~lancucki/Visio_VBA_Information.htm

Actually, I worked on it last night, using BoundingBox...

Here is what I got; seems to work correctly.
-----------------------------------------------------------------
Private Function IsOverlapping(Shape1 As IVShape, Shape2 As IVShape) As
Boolean

    Dim Left1 As Double
    Dim Left2 As Double
    Dim Bottom1 As Double
    Dim Bottom2 As Double
    Dim Right1 As Double
    Dim Right2 As Double
    Dim Top1 As Double
    Dim Top2 As Double

    Shape1.BoundingBox flags + visBBoxExtents, Left1, Bottom1, Right1, Top1
    Shape2.BoundingBox flags + visBBoxExtents, Left2, Bottom2, Right2, Top2

    If ((Left2 >= Left1 And Left2 <= Right1) Or _
        (Right2 >= Left1 And Right2 <= Right1)) And _
        ((Top2 >= Bottom1 And Top2 <= Top1) Or _
        (Bottom2 >= Bottom1 And Bottom2 <= Top1)) Then
        IsOverlapping = True
    Else
        IsOverlapping = False
    End If

End Function
--------------------------------------------------------------------------

Robert:

From V2000 and later, you probably are best served in this area by the
Shape.SpatialXxx
properties, which can tell you about overlapping and find neighbors
directly.
These are based on geometry rather than bounding box. (Note that
bounding box
only coincides with the visible geometry for rectangle shapes.)

If you absolutely have to use bounding box, then the method described
elsewhere
in this thread looks pretty reasonable.

Graham

--
--------------------------------------------
Graham Wideman
MS MVP for Visio
Books:
Visio 2000 Developer's Survival Guide
Visio 2002 Developer's Survival Pack (with Tools)
... and resources for programmable diagramming at:
http://www.diagramantics.com
--------------------------------------------
Unoffical Visio FAQ:
http://www.diagramantics.com/diagenvs/visio/faq/index.htm

(Remove the obvious to email me)
---------------------------------------------

Use the Shape.SpatialNeighbor function.