Glue and 2d shapes

[dave]

Hi All
I'm trying to combine several 2d shapes and need some help with glueing
'stuff' together.
My example is the abutting side of two retangles
How would I glue these side together using VBA?

Dave

 

[junethesecond]

One of the ways may be done with connection points.
Each of Rectangle1 and 2 have a connection point.
If type of connectionpoint of rec. 1 is inward and rec. 2 is outword,
glueto method may glue rec. 2 to rec. 1, with VBA macro, like...
Set vsoCell1 = ActivePage.Shapes(1).CellsSRC(visSectionConnectionPts,
0, 0)
Set vsoCell2 = ActivePage.Shapes(2).CellsSRC(visSectionConnectionPts,
0, 0)
vsoCell2.GlueTo vsoCell1