Dim xKreis As Double Dim yKreis As Double Dim xs As Double Dim ys As Double For Each kreis In ActivePage.Shapes kreis.GetPosition xKreis, yKreis For Each s In ActivePage.Shapes s.GetPosition xs, ys If xs = xKreis And ys = yKreis Then ActiveDocument.CreateSelection s, kreis Set combined = ActiveSelection.Combine End If Next NextEnd Sub