How to find with in a file the last updated picture using excel VBA

Question

I have the following script

   Sub Picture()
    Dim picname As String
    Dim shp As Shape
    Dim pasteAt As Integer
    Dim lThisRow As Long
    Dim presen