c:\Users\사용자명\AppData\Roaming\Microsoft\AddIns\
Sub InsertImage()
Dim selectedRange As Range
Dim imgPath As String
Dim img As Shape
' 선택한 셀 영역 가져오기
Set selectedRange = Application.Selection
' 이미지 파일 경로 입력 받기
imgPath = Application.GetOpenFilename("Images (*.jpg;*.jpeg;*.gif;*.png),*.jpg;*.jpeg;*.gif;*.png", , "Select an image")
If imgPath <> "False" Then
' 이미지 삽입
Set img = selectedRange.Parent.Shapes.AddPicture(imgPath, msoFalse, msoCTrue, selectedRange.Left, selectedRange.Top, selectedRange.Width, selectedRange.Height)
End If
End Sub