[excel] 자동 사진 불러오기 코드 생성 중 문의점

Question

익명

안녕하세요,

문외한인 제가 여차저차해서 엑셀 상에 자동으로 사진 불러오기 코드를 만들어 잘~ 사용해 오다가

억지로 폼을 바꿔야 하는 시점이 와서 문의드립니다.

하기 의 코드는 제가 이전에 사용해온 b2셀의 코드명으로 하위"pic" 폴더에 저장된 사진을 b2셀에 불러오기 인데요

이를 w2셀코드명으로 하위"pic"폴더에 저장된 사진을 w2셀에 불러오기 로 변경하려면 어느부분을 고쳐야 할까요. (이후 데이터는 아래로 죽죽 내려갑니다)

제주변엔 물어볼 사람이 전혀 없습니다.. 답변 바랍니다.

===================================

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column <> 2 Then Exit Sub

If Target.Row < 2 Then Exit Sub

On Error GoTo ePass

Application.EnableEvents = False

Dim douWid As Double '// 사진의 가로 크기 를 구할 변수

Dim douHei As Double '// 사진의 세로 크기 를 구할 변수

Dim imageAdr As String '// 사진의 위치 를 구할 변수

douWid = Target.Offset(, 1).Left - Target.Left ' 사진의 가로크기 구함

douHei = Target.Offset(1).Top - Target.Top ' 사진의 세로크기 구함

imageAdr = ThisWorkbook.Path & "\pic" & Target.Value & ".jpg" '// 셀 이름으로 사진의경로 + 이름을 넣음

'// Target.Activate

With ActiveSheet.Pictures.Insert(imageAdr) '// 사진을 셀에 넣음Sht.Pictures

.ShapeRange.LockAspectRatio = msoFalse '그림 좌우고정비율 해제

.Width = Abs(douWid) - 4 '// 가로 넓이보다 4작게

.Height = Abs(douHei) - 4 '// 세로 넓이보다 4작게

.Top = Target.Top + 2 ' 사진의 세로 위치를 셀보다 2 크게

.Left = Target.Left + 2 ' 사진의 가로 위치를 셀보다 2크게

End With

GoTo okPass

ePass: If Not IsEmpty(Target) Then Target = Target & ".jpg 라는 사진이 없습니다."

okPass: Application.EnableEvents = True

End Sub

잠긴 질문. 이 질문은 Microsoft 지원 커뮤니티에서 마이그레이션되었습니다. 질문이 도움이 되었는지 여부에 대해 응답할 수는 있지만, 메모나 회신을 추가하거나 질문을 따를 수는 없습니다.

댓글 0개

답변 1개

Answer 1

안녕하십니까? NK Kim 님

Microsoft Community 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel 자동 불러오기 VBA 매크로에 대해 안내를 드리겠습니다.

말씀해 주신 VBA 매크로의 경우에는 해당 포럼이 아니라 불편하지만 MSDN 개발자 포럼에 문의하여 도움을 받으시기 바랍니다.

(프로그래밍에 해당되는 내용이기 때문에 여기서 도움을 받기 보다는 개발자/프로그래밍 담당 엔지니어들에게 도움을 받으시는 것이 더 좋을 것으로 예상이 됩니다.)

추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.

감사합니다.