130216_엑셀 매크로로 이미지 자동 불러오기

* 제가 찾고자했던 그자료이군요.... 

응용을 하면 저에게 필요한 매크로가 되겠네요... 

엑셀은 정말 대단합니다.... 

---

엑셀 매크로로 이미지 자동 불러오기

2011/04/12 

☞(첨부파일):엑셀참고_이미지파일_불러오기_mrd.xls 

<< 엑셀 매크로로 이미지 자동 불러오기 >> 

- 셀에 지정된 이미지 경로를 참조하여 이미지 불러오기 엑셀 샘플입니다. 

첨부 참고 

o 수행 로직 

사진 불러오기 클릭 시, 
[시작 행] ~ [종료 행] 사이의 

[사진 ROOT 경로]&[사진 파일명] 
경로의 이미지를 

[사진] 컬럼 해당 행에 
[가로size*세로size] 의 크기로 뿌려줌 

o 매크로 관련 단축키 

- 매크로 실행 alt+f11 
- 매크로 삽입 altl+f8 

o 사용 매크로 코드 

Option Explicit 
Sub ImportPhotos() 

Dim target_sheet As Worksheet 
Dim i As Integer, col_fileName As Integer, col_image As Integer 
Dim imageDir As String 

Application.ScreenUpdating = False 

imageDir = Cells(1, 3).Value '사진 ROOT 경로 = C1 의 값 
col_fileName = 2 '이미지 파일 이름 열 = B 
col_image = 1 '이미지 파일 위치시킬 열 = A 

Set target_sheet = Sheet1 '사진이 들어갈 엑셀시트 개체 
On Error Resume Next 

For i = Cells(2, 5).Value To Cells(2, 7).Value '가져올 행 지정 (E2 지정 값 ~ G2 지정 값) 

With target_sheet.Pictures.Insert(imageDir & Cells(i, col_fileName).Value) '해당 이미지 경로에서 이미지 불러옴 
.Width = Cells(1, 5).Value '가로size (E1 의 값) 
.Height = Cells(1, 7).Value '세로size (G1 의 값) 
.Top = target_sheet.Cells(i, col_image).Top '이미지 세로위치 
.Left = target_sheet.Cells(i, col_image).Left '이미지 가로위치 
End With 

Next i 

Application.ScreenUpdating = True 
End Sub 

---

* 출처 : http://blog.naver.com/PostView.nhn?blogId=minroud&logNo=80128136025