그림이나 사진을 참조형으로 가져오는 방법입니다.^

[보슈왈소]

그림이나 사진도 자료형으로 사용가능하네요.

감사감사^^*

하루하나님 덕분에 미션 성공하였습니다.

그림에 이름정의하여 그림 참조하는 방법

그림참조 자세하게 설명했으면 싶은데... 다음에 설명드릴께요.

자세한 내용은 아래를 참고하세요.

http://cafe.naver.com/excelmaster/22795

특정 셀에 알맞은 크기로 그림 삽입하기

아래는 사진을 쉽게 가져오는 방법입니다.

사진을 정확한 크기로 가져와야 필터를 이용할때 도망가는 사진이 없습니다.

또 셀크기를 늘리거나 줄이거나 할때로 셀속에 있는것처럼 원하는데로 됩니다.

문제는 수작업으로는 거의 불가능 하더라구요.. 아래의 매크로를 사용하시길 바랍니다.

시트의 사진이 들어가는 셀에는 아무색깔이나 지정해야한다.

사진이 들어가는 시트의 VBA 

Private Sub Worksheet_SelectixxonChange(ByVal Target As Range)

If Target.Interior.ColorIndex <> -4142 Then
On Error GoTo n:

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 extImages = "*.gif; *.jpg; *.jpeg; *.bmp"
 With fd
   .Filters.Clear
   .Filters.Add "Images", extImages, 1
   .AllowMultiSelect = False
   .Show
 End With
ActiveSheet.Pictures.Insert(fd.SelectedItems(1)).Select
Selection.Width = Target.Width
Selection.Height = Target.Height
Selection.Placement = xlMoveAndSize

End If
n:
End Sub