[엑셀이뭐니]매크로- URL주소로 사진넣기 3강 /insert 링크삽입 /addpicture 직접삽입 /이미지 삽입/엑셀 VBA 기초

[@meave3520]

안녕하세요. 올려주신 매크로 사진 과정 잘 보고 있습니다!
질문이 있어 댓글 남깁니다.
insert에 올려주셨던 이미지 파일명을 기준으로 이미지가 있는 폴더에서 사진을 가져오고 싶은데 (addpicture 방식으로)
오류가 발생해 코드를 한번 봐주실 수 있을까요?
iwidth 행에서 디버그가 뜹니다 ㅠ
Sub Photo()
Dim R As Range

Dim wob As Workbook
Dim wos As Worksheet

Dim pname As String

Dim pic As Object
Dim iwidth As Single
Dim iheight As Single

'----------------------------

Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next


Set wob = ActiveWorkbook
Set wos = wob.ActiveSheet

For Each R In Selection


pname = "C:\Users\kimmink\Desktop\WIP\SALES REPORT\product images" & R & ".jpeg"

If Dir(pname) = "" Then
GoTo pas

End If


iwidth = LoadPicture(pname).Width * 0.037795
iheight = LoadPicture(pname).Height * 0.037795

Set pic = wos.Shapes.AddPicture(pname, msoFalse, msoTrue, 1, 1, iwidth, iheight)



With pic

.LockAspectRatio = msoTrue


.Top = R.Offset(0, 1).Top + 0.75
.Left = R.Offset(0, 1).Left + 0.75

.Height = 62


End With


pas:


Next


End Sub
감사합니다!

[@euhaplusna]

안녕하세요! 너무 좋은 강의 감사합니다!
다만 한가지 질문이 있는데, 강의해 주신 소스로 매크로 진행하니 PNG 파일은 가로세율 비율이 무너지고 JPG 파일만 가로세율 비율이 유지됩니다. 제가 뭔가 잘못 섞어놓은 것 같은데 혹시 해결해 주실 수 있을까요? ㅠ-ㅠ
For Each R In Selection


pname = "\\OCSAD03\OCSShare\SALES\Irene\Product Image\" & R & ".png"

If Dir(pname) = "" Then

pname = "\\OCSAD03\OCSShare\SALES\Irene\Product Image\" & R & ".jpg"

End If

If Dir(pname) = "" Then

R.Interior.ColorIndex = 15 'grey (1-b / 2-wh/ 3-r / 4-g5-b/6-y/7-p/8-sb)
GoTo pas

End If

iwidth = LoadPicture(pname).Width * 0.037795
iheight = LoadPicture(pname).Height * 0.037795

Set pic = wos.Shapes.AddPicture(pname, msoFalse, msoTrue, 1, 1, iwidth, iheight)
With pic

.LockAspectRatio = msoTrue

.Height = 60

.Top = R.Offset(0, 1).Top + 1
.Left = R.Offset(0, 1).Left + 1

End With

R.Offset(0, 1).RowHeight = 65
pas:

[@CheVSEH]

이미지 화질이 유지가 되나요?

[@gyuniverse-_-]

예제파일 다운이 안됩니다 ㅠ

[@엑셀이뭐니]

naver.me/5mrc1C0h
링크 수정되었습니다. 알려주셔서 감사합니다.

[@gyuniverse-_-]

감사합니다!!