Sehr interessant und wichtig ist der Befehl
SpatialRelation
in VBA für Visio. Damit kann man ermitteln, ob sich zwei Shapes überlappen, das eine Shape vom anderen verdeckt liegt, ob die beiden Shapes nebeneinander liegen oder nichts miteinander zu tun haben. Die Syntax lautet:
Visio.Shape.SpatialRelation(OtherShape As Shape, Tolerance As Double, Flags As Integer) As Integer
Die Rückgabeparameter lauten:
visSpatialContain
visSpatialContaindIn
visSpatialOverlap
visSpatialTouching
Ich habe es verwendet, weil ich in Raumplänen herausfinden möchte, ob zwei Möbelstücke nebeneinander stehen.