Programming the lasso selection tool

[Jacco]

Hi all,

I am looking for a way to select all shapes within a certain location.
These shapes will be in different layers, and the shapes on the page
(and within each layer) are not limited to the area that I want to
select. Basically, what I want is to replicate the lasso selection
tool in VBA, selecting all shapes that lie within the are defined by
(X1, Y1) - (X2 - Y2). Has anybody ever tackled this before?

Cheers,

Jacco

 

[JuneTheSecond]

You might use Shape.SpatialNeighbors property.
You can draw rectangular by (x1,y1) and (x2,y2), or any other closed curves
for a trup. you could analyse which shapes are included in your trap,
Help for SpatialNeighbors has good example code.