xeHostel(영덕대게태양광)

 오피스 프로그램에 사진 넣는 행위는 별거 아니다. 하지만, 칸 크기에 맞게 넣는 것은, 특히나 엑셀은 힘들다. 어떤 분은 ALT를 눌러 조절하면, 잘 들어간다. 하는데, 한셀에서는... 안 된다. 그래서 우리는 VBA를 이용한다. 당초에 위 코드를 짜신 분은 사진 이름과 엑셀 상의 이름이 동일하면, 그 옆에 사진을 넣도록 만들었는데, 그럼 작업을 두번 하는 듯 하여(사진 파일명 이름 변경 작업) 탐색기를 열어 원하는 곳에 찍어 넣도록 만들었다. VBA를 실행하기 위해서는, ALT + F8을 눌러야 하는데, 키 위치가 애매하여 버튼을 누르면 실행하는 형식으로 만들 되, 연속적인 사진 넣기를 위해, 탐색기를 취소하지 않으면, 계속 넣을 수 있게끔 만들었다. 통합한 셀의 경우에도 적용이 되니, 사용하고 싶으면 사용해라. Sub InsertPictures()     Dim ws As Worksheet     Dim selectedCell As Range     Dim imagePath As String     Dim i As Integer     Dim pictureShape As Shape     Dim mergeArea As Range     Dim fileDialog As FileDialog     Dim lastPath As String     ' 현재 시트 참조     Set ws = ActiveSheet     i = 0     lastPath = ActiveWorkbook.Path ' 기본 경로를 현재 워크북 경로로 설정     ' 반복문을 통해 셀을 하나씩 선택하고 이미지 삽입     Do While Cells(6 + i, 4).Value <> ""       ...