Find a value then copy a picture using offset

[knight21]

I am trying to copy a picture using offset but I am not getting any data upon pasting.

• f.Offset(11, -8) is merged.
• I tested using f.Offset(11, -8).select on vba, then right-click copy, then paste to another sheet. I am getting the image, although not the right size.

Here is my code:

Sub Button1_Click()
Application.CopyObjectsWithCells = True
Set f = ThisWorkbook.Worksheets(1).Cells.Find(What:="C:", LookAt:=xlWhole)
        If Not f Is Nothing Then ' its found
                        f.Offset(11, -8).Copy
                        ThisWorkbook.Worksheets("Sheet2").Range("G10").PasteSpecial
        End If
End Sub

 

[knight21]

My alternate approach that is also not working

Sub CopyImages()
    Dim shp As Shape
    For Each shp In ThisWorkbook.Worksheets(1).Shapes
        If shp.Type = msoPicture Then
            With shp.TopLeftCell
                If .Offset(-11, 8).Value = "C:" Then shp.Copy
                ThisWorkbook.Worksheets("Sheet2").Paste Range("G10")
            End With
        End If
    Next shp
End Sub