Отредактировать картинки из файла Excel и сохранить на те же места

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
   
Sub Main()
    Dim sh As Shape, n As Long
    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoPicture Then
            sh.CopyPicture: OpenClipboard (0&): n = GetClipboardData(14)
            CopyEnhMetaFile n, "c:\" & "picture" & n & ".jpg": CloseClipboard
        End If
    Next
End Sub
 
 
Цитата:как присвоить имени картинки имя ячейки где она находится? 
Для этого, в коде из поста № 2 строку 
Код:
 
CopyEnhMetaFile n, "c:\" & "picture" & n & ".jpg": CloseClipboard
 
замените на 
Код:
 
CopyEnhMetaFile n, "c:\" & Replace(sh.TopLeftCell.Address, "$", "") & ".jpg": CloseClipboard

Dim MP()
Dim p
 
Private Sub CommandButton1_Click()
    Dim sh As Shape, n As Long
    Dim i
    i = 0
    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoPicture Then
        Debug.Print sh.Name
        ReDim Preserve MP(i)
        MP(i) = sh.Name
        i = i + 1
        End If
    Next
' Set Img.Picture = PastePicture()
End Sub
 
Private Sub CommandButton2_Click()
ActiveSheet.Shapes(MP(p)).CopyPicture
Set Img.Picture = PastePicture()
p = p + 1
If p = UBound(MP) + 1 Then p = 0
End Sub

(Set Ex = CreateObject("Excel.Application") )