Function DistanceCent(objA As Object, objB As Object)
    DistanceCent = Sqr((objA.Left + objA.Width / 2 - objB.Left + objB.Width / 2) ^ 2 + (objA.Top + objA.Height / 2 - objB.Top + objB.Height / 2) ^ 2)
End Function

Sub test()
Dim objShape As Object
For Each objShape In Sheets("Лист3").Shapes
If objShape.Name Like "Прямоугольник*" Then
Debug.Print DistanceCent(Sheets("Лист3").Shapes("Рисунок 7"), objShape)
End If
Next

End Sub

Declare Function GetActiveWindow32 Lib "user32" Alias _
                                   "GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "user32" Alias _
                               "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
                                               ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
                               "ExtractIconA" (ByVal hInst As Long, _
                                               ByVal lpszExeFileName As String, _
                                               ByVal nIconIndex As Long) As Long