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

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

 

지난 글에서는

웹상의 주소로 가져온 이미지의

사이즈를 셀 크기에 맞게

조절하는 방법에 대해

알려드렸습니다.

 

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

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2504

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

 

이번 글에서는

웹상의 주소만으로 

이미지를 원하는 곳으로

저장하는 방법에 대해

알려드리겠습니다.

 

그럼 엑셀을 실행시켜주세요.

 

 

먼저 이렇게 지난 글에서

저장 위치와 이미지 저장하기만

추가해주세요.

 

저장 위치는 원하는 곳으로 

적어주시면 됩니다.

 

이미지 가져오기 와서 

셀의 크기에 맞추는 건

지난 글에서 알려드렸으니

바로 이미지 저장하는

방법을 알려드리겠습니다.

 

그럼 일단 

ALT +F11을 눌러주세요.

 

 

그리고 이렇게 

작성해주시면 됩니다.

 

바로 설명해드리면

 

Sub Image_Save()

Image_Save이라는

매크로를 만들게

Dim strSavePath     As String

strSavePath이라는

변수를 설정할게

(저장하고자 하는 폴더를

받을 변수)

 

Dim Img             As Object

Img이라는

변수를 설정할게

(객체 형식으로

이미지를 받을 변수)

   
Set Img = ActiveSheet.Shapes("이미지 1")

이미지는 현재 활성화된

시트에 이미지 1이라는 이미지야

strSavePath = Range("D3") & "\이미지 1.PNG"

srtSavePath는 

D3에 적혀있는 위치에 

이미지 1.png라는 형태로

저장해줘
    
Img.CopyPicture Appearance:=xlScreen, Format:=xlPicutre
이미지를 

눈에 보이는 형태로

사진 포맷으로   

사진 형태로 복사해

  
With Sheet6.ChartObjects.Add(0, 0, Img.Width, Img.Height)

시트 6에 가장 상단에

이미지의 너비와 

이미지의 높이 그대로 

차트를 만들어줘

With. Chart
       . Paste

       . Export strSavePath

       . Parent.Delete

차트에 이미지를 

붙여 넣고 설정해놓은

저장 위치에 저장하고

차트를 삭제해줘

 

End With
End With
     
End Sub

 

이렇게 적고 실행하게 되면

 

 

이렇게 원하는 폴더에 

이미지 1이라는 이름과

원하는 포맷의 

PNG 파일로 저장된 것을

확인할 수 있습니다.

 

이를 활용하면

실제로 굳이 이미지를 

엑셀의 셀에 넣지 않고 

그대로 이미지의 주소만

알고 있다면 바로바로 

원하는 위치에 저장할 수 있습니다.

 

또한 1장 2장이 아닌

수천 장이라고 하더라도

빠른 시간 안에 이미지를

저장할 수 있습니다.

 

꼭 직접 적어보시면서 

활용하여 수많은 이미지 작업을

빠른 시간 안에 해결하셨으면 

좋겠습니다.

 

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

댓글에 남겨주시고

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