일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 |
- 몸캠피씽
- 사이버범죄구제업체
- 라인 동영상 유포
- 카톡 영상 협박
- 영상통화 협박
- 카톡 영상 유출
- 라바웨이브
- 랜덤채팅 사기
- 카카오톡 사기
- 영상유출
- 영통협박
- 카톡 영상 사기
- 영상사기
- 영통사기
- 카카오톡 협박
- 메신저톡 사기
- 사이버범죄구제
- 영상통화사기
- 동영상유포협박
- 영통 협박
- 몸캠피싱
- 사이버 범죄 구제 업체
- 영상통화 사기
- 영상 사기
- 라인 영상통화 협박
- 팀카시아
- 라인 영상통화 사기
- 영상통화 유출
- 동영상 사기
- 엑셀#직장인칼퇴#칼퇴#직장인엑셀#VBA 배열#배열변수
- Today
- Total
Lost Information!
엑셀 VBA 기초 - 이미지 선택창 열어주기 - 1편 본문
모두가 칼퇴하는 그날까지~
지난 글에서는
리스트 박스에서
다중 선택한 목록을
다운로드하여 원하는 셀로
붙여 넣는 방법을
알려드렸습니다.
만일 저번 내용을 모르시거나
기억이 나질 않으신다면
밑에 글을 참고해주세요.
이번 글에서는
원하는 셀에 또는
지정된 공간을
더블클릭해서
원하는 이미지를
넣을 수 있는 방법을
알려드리도록 하겠습니다.
먼저 이렇게 이미지를
넣은 셀을 지정해주세요.
그다음 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
여기까지 적고 실행하게 되면
이렇게 원하는 이미지를
나오는 창은 뜨지 않을 것입니다.
왜냐하면 다른 코드를
한 번 더 적어줘야 하기 때문이죠.
하지만 너무 많은 양을
한 번에 알려드리면
이해하시지 못하기 때문에
다음 글에 이어서 알려드리겠습니다.
그럼 여기까지 궁금하신 점은
댓글에 남겨주시고
공감과 구독도 부탁드리겠습니다.