vba – Preciso inserir imagens automaticamente no excel, 5 por linha


usei esse codigo, mas ele empilha as fotos no canto superior direito da planilha

Private Sub Inseri_Click()
Dim strFolder As String
Dim strFileName As String
Dim objPic As Picture
Dim rngCell As Range

Dim i As Integer

strFolder = ThisWorkbook.Path & “” ‘diz o caminho das imagens
If Right(strFolder, 1) <> “” Then ‘verificando se esta vazio
strFolder = strFolder & “”
End If

Set rngCell = Range(“F2”)

strFileName = Dir(strFolder & “*.jpg”, vbNormal)
Do While Len(strFileName) > 0
Set objPic = ActiveSheet.Pictures.Insert(strFolder & strFileName)
With objPic
.Left = rngCell.Left
.Top = rngCell.Top
.Height = rngCell.Height
.Placement = xlMoveAndSize
End With

If (i < 5) Then
Dim e As Integer
e = e + 1
Set rngCell = rngCell.Offset(0, e)
i = i + 1
Else
Set rngCell = rngCell.Offset(1, 0)
i = 0
End If
strFileName = Dir

Loop
End Sub