Lost Information!

엑셀 VBA 기초 - 이미지 선택창 열어주기 - 1편 본문

개인브랜드블로그를 만들어 보자/엑셀VBA

엑셀 VBA 기초 - 이미지 선택창 열어주기 - 1편

Lostinformation 2021. 1. 13. 16:46

모두가 칼퇴하는 그날까지~

 

지난 글에서는

리스트 박스에서 

다중 선택한 목록을

다운로드하여 원하는 셀로

붙여 넣는 방법을 

알려드렸습니다.

 

만일 저번 내용을 모르시거나

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2487

 

엑셀 VBA 기초 - 리스트박스에서 다중 선택하여 다운로드하기 - 2편

모두가 칼퇴하는 그날까지~ 지난 글에서는 리스트 박스에서 다중 선택하는 방법을 알려드렸습니다. 만일 저번 내용을 모르시거나 기억이 나질 않으신다면 밑에 글을 참고해주세요. red-s.tistory

red-s.tistory.com

 

이번 글에서는 

원하는 셀에 또는

지정된 공간을

더블클릭해서 

원하는 이미지를 

넣을 수 있는 방법

알려드리도록 하겠습니다.

 

 

먼저 이렇게 이미지를

넣은 셀을 지정해주세요.

 

그다음 ALT +F11

눌러주세요

 

그다음 이렇게 적어주세요.

 

바로 설명해드리면

 

Private Sub Worksheet_BeforeDoubleClick

(ByVal Target As Range, Cancel As Boolean)

이미지를 더블클릭하게 되면


Dim strPath     As String

strPath라는 변수를

설정할게
    
Application.EnableEvents = False

 

If Target.Address = "$G$17:$G$23" Then

타깃의 주소가

$G$17:$G$23 주소와 같다면

 

ChDir ThisWorkbook.Path & "\Image"

파일 선택창의 기본 경로는

위의 주소였으면 좋겠어

 

strPath = Application.GetOpenFilename(Title:="이미지 선택하기") 

strPath변수에는

파일 선택창에 선택한 파일의

경로와 파일명이 들어갑니다.

 

Range("J17"). Select 

그리고 이미지 셀이

아닌 다른 셀을 선택하면

더블클릭을 취소해

        
If strPath <> "False" Then

만약 이미지 선택창을 열었다가

취소한다면


Call Image_Insert(strPath)

이미지를 불러오는 

프로시저를 불러와


Range("J17"). Select

이후 J17셀을 선택해


End If
End If
    
Application.EnableEvents = True
    
End Sub

여기까지 적고 실행하게 되면

 

이렇게 원하는 이미지를

나오는 창은 뜨지 않을 것입니다.

 

왜냐하면 다른 코드를 

한 번 더 적어줘야 하기 때문이죠.

 

하지만 너무 많은 양을

한 번에 알려드리면 

이해하시지 못하기 때문에

다음 글에 이어서 알려드리겠습니다.

 

그럼 여기까지 궁금하신 점은

댓글에 남겨주시고

공감구독도 부탁드리겠습니다.

 

4 Comments
댓글쓰기 폼