Rename pictures in a particular cell

[yinkajewole]

I have pictures on range F7 in all sheets. unfortunately the names of the picture varies in all the sheets. how do i give it a uniform name like "mypic"

 

[yinkajewole]

@eduzs It errors Method or data member not found

If Not Intersect(Range(oSheet.oShp.TopLeftCell.Address), oSheet.range("F7")) Is Nothing Then oSheet.oShp.name="UnicName"

 

[yinkajewole]

Can you select one of pictures and run this in the immediate window:

?Selection.TopLeftCell.Address

Do you get F7 ?

I got this $F$7

 

[Jaafar Tribak]

I got this $F$7

Well in that case my code should work ...

If you amend the PicFromRange function as follows and re-run the Test sub again, do you get the sheest, shapes and respective topleft cells in the immediate window?

Function PicFromRange(ByVal R As Range) As Shape

    Dim shp As Shape
    
    For Each shp In R.Worksheet.Shapes
        If shp.TopLeftCell.Address = R.Address Then
           [COLOR=#0000ff][B] Debug.Print shp.ControlFormat.Parent.Name & vbTab & shp.Name & vbTab & shp.TopLeftCell.Address[/B][/COLOR]
            Set PicFromRange = shp: Exit Function
        End If
    Next shp


End Function

 

[eduzs]

You could not move all at once just by the same name.

 

[yinkajewole]

Well in that case my code should work ...

If you amend the PicFromRange function as follows and re-run the Test sub again, do you get the sheest, shapes and respective topleft cells in the immediate window?

Function PicFromRange(ByVal R As Range) As Shape

    Dim shp As Shape
    
    For Each shp In R.Worksheet.Shapes
        If shp.TopLeftCell.Address = R.Address Then
           [COLOR=#0000ff][B] Debug.Print shp.ControlFormat.Parent.Name & vbTab & shp.Name & vbTab & shp.TopLeftCell.Address[/B][/COLOR]
            Set PicFromRange = shp: Exit Function
        End If
    Next shp


End Function

I got nothing....
When I pressed F8 to run the code line by line, when it got to the function, it did nothing, it then went to end function - that's what I notice

 

[Jaafar Tribak]

I got nothing....
When I pressed F8 to run the code line by line, when it got to the function, it did nothing, it then went to end function - that's what I notice

That suggests the line :If shp.TopLeftCell.Address = R.Address Then evaluates to FALSE meaning no shape is located in cell F7.

 

[yinkajewole]

yes