[그림 넣기]

[그림 넣기]

Set oPicture = Worksheets("Final Result").Shapes.AddPicture(strPictureFilePath _

& C.Value & ".jpg", False, True, rngTg.Left, rngTg.Top + iGappic, 200, 200)

' Final Result 시트에 그림 삽입

' rngTg.Left, : 그림의 왼쪽 위치

'rngTg.Top + iGappic, : 그림의 위쪽 위치

'200 : 임시로 그림 크기 지정

'strPictureFilePath & C.Value & ".jpg" : 현재는 그림 파일이 jpg파일만 있다고 가정함

' 그림 파일 형식이 png, gif 등으로 다양하다면 코드 수정해야함

With oPicture '원본 그림 크기로 맞추기

.LockAspectRatio = msoTrue ‘원본비율 유지

.ScaleHeight 1, msoTrue

.ScaleWidth 1, msoTrue

End With