엑셀 VBA 기본 - 웹에서 이미지 가져와서 저장하기 - 2편

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

 

지난 글에서는

웹상에서 이미지를 가져오는

방법을 알려드렸습니다.

 

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

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2502

엑셀 VBA 기본 - 웹에서 이미지 가져와서 저장하기 - 1편

 

이번 글에서는 만약

가져온 이미지가 크기가

크다면 원하는 크기로 

조절하는 방법에 대해

알려드리겠습니다.

 

그럼 엑셀을 실행해주세요.

 

저번 글에서 이렇게 

원하는 셀에 웹상의 이미지가

가운데 들어오도록 설정하였는데요.

 

만약 셀 크기에 비해 이미지가

크다면 어떻게 해야 할까요?

 

만약 저번과 같이 실행한다면

 

이렇게 해당 셀을 넘어

다 가려버리게 될 것입니다.

 

그럼 바로 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는 임의 값으로

변경해줘 됩니다.)

 

이렇게 적고 실행하게 되면

 

이렇게 이미지가 줄어들어

셀에 원본 비율로 줄어들어

쏙 들어가게 됩니다.

 

그렇다면 셀의 크기만

동일하게 유지한다면

모든 사진이 한눈에 보기에도

깔끔하게 정리시킬 수 있습니다.

 

또한 수많은 이미지를 

엑셀에 넣어야 한다고 해도

일일이 저장하고 불러와서

붙여 넣고 크기를 조절하지 않고

이미지 주소만 적어놓고

버튼 하나로 한 번에 

여러 장을 불러올 수도 있을 것입니다.

 

당연히 이 매크로로 하나로 

퇴근이 빨라질 수 있고 

엑셀을 잘한다고 알려지기 전까지

많은 시간을 벌 수 있을 것입니다.

 

그럼 다음 글에서는

이미지를 불러와서 

저장까지 할 수 있는지 

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

 

여기까지 궁금하신 점은

댓글에 남겨주시고

공감과 구독도 부탁드립니다.