엑셀 사진넣기 매크로

안녕하세요 먹돌이입니다. 아래 코드를 VBA에 복사 붙여넣기 해주세요~
Sub ImportPictureFile()
Dim strFile As String
Dim sht As Worksheet
Dim rngInsert As Range
Set sht = ActiveSheet
strFile = Application.GetOpenFilename(filefilter:="모든파일(*.*),*.*", _
Title:="삽입할 그림을 선택하세요//BEST & FIRST !!")
If strFile = "False" Then
MsgBox "아무 그림도 선택되지 않았습니다", , "BEST PARTNER! FIRST COMPANY!"
Exit Sub
End If
Set rngInsert = Selection
sht.Shapes.AddPicture Filename:=strFile, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=rngInsert.Left + 5, _
Top:=rngInsert.Top + 5, _
Width:=rngInsert.Width - 10, _
Height:=rngInsert.Height - 10
End Sub

[@doory93]

정말 쉽게 유용한 정보 감사합니다.!!

[@user-fm2kl5lh5l]

꼭 필요했었는데 넘 감사드립니다.^^

[@jypark6644]

큰 도움 되었습니다. 정말 감사합니다.

[@kangsi22068]

구독합니다 정말 감사합니다 큰 도움 되었습니다^^

[@lms2425]

감사합니다. 땡큐 구독 좋아요!

[@user-td9fn7tg6u]

와씨 이거다 사랑해요

[@user-xv1bv6bf2p]

안녕하세요. 혹시 셀 안에 사진 원본 그대로(비율 그대로) 넣는 방법은 없을까요?...

[@user-jz8zx1ge8g]

혹시 ... 몇번 쓰다가 자꾸 끊기는데 이런건 해결할수없나요 ㅜㅜ? 잘 되다가 몇장 넣으면 끊기는데 ...

[@vusgo5788]

어때요? 쉽죠? 너무 멋있는 거 아닌가요? ㅋㅋㅋ

[@user-fz5fx4rz3g]

단축기 눌렀을 때 원하는 폴더를 바로 나오게하는건 없을까요?

[@TV-ls4em]

처음 할때 선택한 폴더가 다음번에 할땐 자동으로 선택되는데 그게 불편하진 않았음당 ㅜ

[@user-fk7yh9yk3m]

안녕하세요 먹돌이입니다 참 쉽쥬?

[@TV-ls4em]

첫 댓글 감동입니다 ❤

[@user-se6ef9ze8e]

저장은 어떤 포맷으로 하는지요??

[@TV-ls4em]

매크로 포함해서 저장하시려면 xlsm 확장자로 저장하시면 되요

[@user-gr9vg1ql1j]

죄송하지만 사진 넣기 코드는 어디에 있나요