For Part I I would try to use following:
Sub test() Dim sr As ShapeRange, s1 As Shape, s2 As Shape Set sr = ActiveSelectionRange If sr.Count <> 3 Then MsgBox "3 shapes must be selected": Exit Sub Set s1 = sr(3).Trim(sr(2), False, False) Set s2 = s1.Trim(sr(1), False, False)End Sub
Best regards
Mek
Mek I finally got it to work I just changed the properties to False, False when setting s2.
Thanks for all of your help!!
Set s2 = sr(2).Trim(sr(1), False, False)
You are welcome