Get Name Box value of shape in current region

[PressEscape]

I wish to get the the name box value of the picture within a selected region with VBA

I can navigate and select the region. What's the trick to get the name box value (picture 27) and assign it to a variable?

 

[Jaafar Tribak]

Selection.Name

 

[PressEscape]

I may have not explained that the image has not been selected
what do I add to this simple code to select the Name Box Value of the picture within the range

Sub copyPicture()
   
    Range("C2:C12").Select
          
End Sub

 

[Jaafar Tribak]

Do you know the location of the image in relation to the worksheet? ie:- In relation to the cells that lie beneath the image.
And is the shape static or will it be moved and change its location on the worksheet?

PS: If the image the only shape you have on the worksheet then you can easily retrieve its name based on the index as follows:

MsgBox Sheet1.Shapes(1).Name

Change the Sheet name as required.

 

[PressEscape]

The worksheet has many pictures
the pictures don't move.
I wish to get the picture name from the selected region.

 

[jolivanes]

How do you select the region?

 

[PressEscape]

Range(ActiveCell, ActiveCell.Offset(10, 0)).Select

 

[jolivanes]

Sub Select_Shape_In_Selection()
   Dim targetRange As Range
   Set targetRange = Range(Selection.Address)
   Dim shp As Shape
   For Each shp In ActiveSheet.Shapes
      If Not Intersect(targetRange, Range(shp.TopLeftCell, shp.BottomRightCell)) Is Nothing Then MsgBox shp.Name: Exit For
   Next shp
End Sub

 

[PressEscape]

Thanks jolivanes,
Not quite what I want. I don't want to loop through all shapes in the worksheet.
I only wish to get the shape in the current range.

 

[PressEscape]

I have got the select_shape_In_Selection code writing to debug.print but the picture number returned is a picture nowhere near the current region
(Picture 149 is returned but the picture in current region is Picture 27)
any idea's?