vedere le foto su excel

Sub MostraFoto()
Dim Pic As Object, mPath As String, mFoto As String
Dim mFoto1 As String, i As Integer, k As Integer, c As Integer
Application.ScreenUpdating = False
'se non c'è una matricola in D11 esce
If Range("D11") = "" Then Exit Sub

'--->valorizza in mPath il percorso delle foto e in mFoto la matricola
mPath = "C:\MiaCartella\Foto"
mFoto = Range("D11")
'<----

'--->con questo ciclo alimento un contatore (k) se esiste almeno una foto
k = 0
mFoto1 = mFoto
For i = 1 To 4
    mFoto1 = mFoto & "_f" & i ' ad ogni loop mFoto1 è uguale _
                                a mFoto, cioè matricola, + f + i, quindi matricola_f1 _
                                matricola_f2 ecc ecc
    
    If Dir(mPath & "\" & mFoto1 & ".jpg") <> "" Then '
        k = k + 1
    End If
    mFoto1 = mFoto
Next i
'<---

'--->se alla fine k=0 non ci sono foto per quella matricola: esce
If k = 0 Then
    MsgBox "Nessuna Foto"
    Exit Sub
End If
'<---

'---> ripeto il ciclo
c = 1 'colonna inizio inserimento foto
mFoto1 = mFoto
For i = 1 To 4
    mFoto1 = mFoto & "_f" & i
    If Dir(mPath & "\" & mFoto1 & ".jpg") <> "" Then ' se la foto esiste
        Cells(29, c).Select ' seleziono cella dove inserire la 1^ foto
        With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto1 & ".jpg") ' inserisco foto
            .ShapeRange.LockAspectRatio = msoFalse ' impedisco che la foto _
                                                     si dimensioni proporzionalmente
            'in queste variabili metto i valori di dimensionamento delle foto
            mTop = ActiveCell.Top ' inizia da (riga 29)
            mLeft = ActiveCell.Left 'a sinistra si allinea con la cella selezionata _
                                     cioè: riga 29, colonna C
                                     
            'altezza: pari al range (cella attiva:cella attiva + 6 righe) _
             per esempio: (A29:A35)
            mHeight = Range(ActiveCell.Address & ":" & ActiveCell.Offset(6).Address).Height
            
            'largezza: pari al range (cella attiva:cella attiva + 2 colonne) _
             per esempio: (A29:C29)
            mWidth = Range(ActiveCell.Address & ":" & ActiveCell.Offset(, 2).Address).Width
            
            'assegno tali valori alla foto inserita
            .Top = mTop ' inizia da
            .Left = mLeft ' a sinistra
            .Width = mWidth ' altezza
            .Height = mHeight ' larghezza
        End With
    End If
    mFoto1 = mFoto 'in mFoto1 ci rimetto la matricola in quanto _
                    mFoto1 può contenere: matricola_f1 - matricola_f2 ecc ecc
    
    c = c + 3 ' passo alla successiva colonna
Next i
'<---

Application.ScreenUpdating = True
Cancel = True
End Sub