순서
1. ALT키+F11키 누른후 메크로 창이뜨면
2. 왼쪽상단에 그림을 붙여 넣을 시트 더블클릭후
3. 아래 명령어 복사 + 붙여넣기
[명령어]
----------------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Pic As Variant
Pic = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png;*.jpeg")
If Pic = False Then
Exit Sub
End If
With Me.Shapes.AddPicture(Pic, False, True, Target.Left + 2, Target.Top + 2, Target.Width - 4, Target.Height - 4)
.LockAspectRatio = msoFalse
End With
Cancel = True
End Sub
----------------------------------------------------------------------------------------------
위 매크로 명령어는 저장은 되지않으며
다시 파일을 열면 1번부터 다시 진행해야합니다.
위 명령어는 2만큼의 여백을 주고 사진이 삽입됩니다.
여백을 조정하려면
"Target.Left + 2, Target.Top + 2, Target.Width - 4, Target.Height - 4"
위 부분의 숫자를 조정하면 여백을 늘리거나 줄일수있습니다.
여백 없이 삽입되기를 원하면 숫자를 다 0으로 하면 엑셀칸에 꽉채울수있습니다.
그리고나서 창을 닫은 후에
칸에 대고 더블클릭해서 사진이나 그림이 있는 경로를 찾아서
선택하면 칸에 딱맞게 들어가는것을 확인할수있습니다.