일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
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 |
31 |
- 영상통화 협박
- 카톡 영상 사기
- 라인 동영상 유포
- 몸캠피싱
- 동영상 사기
- 영통 협박
- 랜덤채팅 사기
- 영상통화 사기
- 카톡 영상 유출
- 사이버범죄구제업체
- 동영상유포협박
- 영상유출
- 영상 사기
- 몸캠피씽
- 영통사기
- 사이버 범죄 구제 업체
- 카톡 영상 협박
- 팀카시아
- 사이버범죄구제
- 엑셀#직장인칼퇴#칼퇴#직장인엑셀#VBA 배열#배열변수
- 라인 영상통화 협박
- 라인 영상통화 사기
- 영상사기
- 카카오톡 사기
- 메신저톡 사기
- 영상통화 유출
- 라바웨이브
- 영통협박
- 카카오톡 협박
- 영상통화사기
- Today
- Total
Lost Information!
엑셀 VBA 기본 - 웹에서 이미지 가져와서 저장하기 - 2편 본문
모두가 칼퇴하는 그날까지~
지난 글에서는
웹상에서 이미지를 가져오는
방법을 알려드렸습니다.
만일 저번 내용을 모르시거나
기억이 나질 않으신다면
밑에 글을 참고해주세요.
이번 글에서는 만약
가져온 이미지가 크기가
크다면 원하는 크기로
조절하는 방법에 대해
알려드리겠습니다.
그럼 엑셀을 실행해주세요.
저번 글에서 이렇게
원하는 셀에 웹상의 이미지가
가운데 들어오도록 설정하였는데요.
만약 셀 크기에 비해 이미지가
크다면 어떻게 해야 할까요?
만약 저번과 같이 실행한다면
이렇게 해당 셀을 넘어
다 가려버리게 될 것입니다.
그럼 바로 ALT +F11을
눌러볼까요
저번 글을 보셨거나
직접 적어보셨다면
저번 글의 VBA와 비슷하다고
느끼실 텐데요.
맞습니다.
저번 글에서 이미지를 조절하는
매트로만 추가된 것입니다.
그럼 추가된 부분만
설명드리겠습니다.
Dim i As Long
변수 i를 설정해줘
Set Img = ActiveSheet.PicturesInsert(strURL)
Img.Name = Range("C6")
이미지의 이름은
C6 이미지의 이름이 있는 셀
If Img.Height > rngT.Height Then
Img.Height = rngT.Height - 4
End If
이미지의 높이가
넣으려는 크기보다 높다면
이미지의 높이를 셀의 높이보다
조금 줄여줘
(여기서 -4는 임의 값으로
변경해줘 됩니다.)
If Img.Width > rngT.Width Then
Img.Width = rngT.Width - 4
End If
마찬가지로 이미지의 너비가
넣으려는 셀의 너비보다 넓다면
이미지의 너비를 셀의 너비보다
조금 줄여줘
(여기서 -4는 임의 값으로
변경해줘 됩니다.)
이렇게 적고 실행하게 되면
이렇게 이미지가 줄어들어
셀에 원본 비율로 줄어들어
쏙 들어가게 됩니다.
그렇다면 셀의 크기만
동일하게 유지한다면
모든 사진이 한눈에 보기에도
깔끔하게 정리시킬 수 있습니다.
또한 수많은 이미지를
엑셀에 넣어야 한다고 해도
일일이 저장하고 불러와서
붙여 넣고 크기를 조절하지 않고
이미지 주소만 적어놓고
버튼 하나로 한 번에
여러 장을 불러올 수도 있을 것입니다.
당연히 이 매크로로 하나로
퇴근이 빨라질 수 있고
엑셀을 잘한다고 알려지기 전까지
많은 시간을 벌 수 있을 것입니다.
그럼 다음 글에서는
이미지를 불러와서
저장까지 할 수 있는지
알려드리도록 하겠습니다.
여기까지 궁금하신 점은
댓글에 남겨주시고
공감과 구독도 부탁드립니다.