사진 자동삽입 매크로 관련 질문

안녕하세요

인터넷에 공개된 매크로를 찾아서 사용 중 입니다.

상위폴더(사진)파일을 찾아 자동으로 사진을 넣는 매크로를 오늘 찾아서 쓰려고 하니 사진 삽입이 아닌 링크로 되어있어 삽입으로 수정하려 합니다.

Option Explicit
Sub ImportPhotos()
Dim Sh_Nam As Worksheet
Dim i As Integer, Col_FN As Integer, Col_Ph As Integer
Dim Pat_FN As String
Application.ScreenUpdating = False
Pat_FN = ThisWorkbook.Path & "\사진\"
Col_FN = 2 '파일이름이 위치한 열: A -> 1
Col_Ph = 2 '사진이 들어갈 열: B -> 2
Set Sh_Nam = Sheet1 '사진이 들어갈 엑셀시트 개체"
On Error Resume Next
For i = 2 To 4 '행지정
'With Sh_Nam.Pictures.Insert(Pat_FN & Cells(i, Col_FN).Value & ".jpg") '사진링크
' .Width = 100 '가로길이 변경
' .Height = 67 '세로길이 변경
' .Top = Sh_Nam.Cells(i, Col_Ph).Top + 2 '사진의 세로위치
' .Left = Sh_Nam.Cells(i, Col_Ph).Left + 5 '사진의 가로위치
With ActiveSheet.Shapes.AddPicture(Pat_FN & Cells(i, Col_FN).Value & ".jpg", msoFalse, msoTrue, ActiveSheet.Cells(i, Col_Ph).Left + 1, ActiveSheet.Cells(i, Col_Ph).Top + 1, 35, 35)
End With
Next i
Application.ScreenUpdating = True
End Sub

이렇게 수정했는데

문제는 사진크기를 중앙정렬도 아니고 강제로 35,35로 조절하게 되어있는거 같습니다.

이전에 쓰던 매크로는

With obj
.ShapeRange.LockAspectRatio = msoFalse
.Height = Selection.Height - 6
.Width = Selection.Width - 6
.Left = Selection.Left + 3
.Top = Selection.Top + 3
ActiveSheet.Protect DrawingObjects:=False, AllowFormattingCells:=True
End With

이렇게 하다보니 꽉차게 집어넣고 사면 여백을 주는 방식인데 이 명령어를 자동 사진삽입 매크로에 넣고 싶습니다.

어떻게 하면 될까요?