Identify Shape Name by it's location

[Plotweaver]

I need to identify a shape's name by knowing only its top and left location data.

It is obviously possible to find a selected shape's location and name.: (Example 1: find shapes.)

Dim activeshape As Shape, UserSelection As Variant
Set UserSelection = ActiveWindow.Selection
On Error GoTo NoShapeSelected
Set activeshape = ActiveSheet.Shapes(UserSelection.Name)
On Error Resume Next
MsgBox "You have selected:" & activeshape.Name & "; Top: " & activeshape.top & "; Left: " & activeshape.left
Exit Sub
NoShapeSelected:
MsgBox "You do not have a shape selected!"

But is there a way to find the name of a shape with only its location known?: (Example 2: find shape name)

Set shp = Application.ActiveSheet.Shapes(name)
shp.top = 84
shp.left = 114
Range("A1") = name

Thank you for any information you can offer to resolve this.

 

[Plotweaver]

I would use a function like this :

In a Standard Module:

Public Function ShapeFromLocation( _
        ByVal X As Single, _
        ByVal Y As Single, _
        Optional ByVal PerentSheet As Worksheet _
    ) As Shape
  
    Dim Shp As Shape
  
    If PerentSheet Is Nothing Then Set PerentSheet = ActiveSheet
  
    For Each Shp In PerentSheet.Shapes
        If Shp.Left = X And Shp.Top = Y Then
            Set ShapeFromLocation = Shp
            Exit For
        End If
    Next Shp

End Function

And you call the function like this :

Sub Test()

    Dim Shp As Shape
  
    Set Shp = ShapeFromLocation(X:=114, Y:=84, PerentSheet:=ActiveSheet)
    If Not Shp Is Nothing Then
        MsgBox "Your shape is : '" & Shp.Name & "'"
    Else
        MsgBox "No shape found!"
    End If

End Sub

This should do the trick. While I was trying to avoid the 'if then' method, I guess going through each shape is the only way to 'find' it. Thanks.