Sub Макрос2()
    Dim shp
    Dim arr()
    Dim arrRectangle()
    Dim str As String
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoGroup Then
            i = shp.GroupItems.Count
            ReDim arr(1 To i): i = 1
            For Each shpChild In shp.GroupItems
                arr(i) = shpChild.Name
                i = i + 1
                If shpChild.Name Like "*Rectangle*" Then L = L + 1
            Next
            ReDim arrRectangle(1 To L): L = 1
            For i = LBound(arr) To UBound(arr)
                If arr(i) Like "*Rectangle*" Then
                    arrRectangle(L) = arr(i)
                    L = L + 1
                End If
            Next
            ActiveSheet.Shapes.Range(arrRectangle).Select
        End If
    Next
End Sub

Sub Макрос1()
    Const СдвигВлево = -0.75
    ActiveSheet.Shapes("Group 10").IncrementLeft СдвигВлево
End Sub