[엑셀] GIF파일을 넣고 재생시키기

평소 문서 작업 도중 레퍼런스 자료가 필요하면 영상 링크를 첨부했었다.

하지만 이번엔 리소스가 어느정도 있는상태+레퍼런스 찾기 힘듦으로 그냥 내가 GIF로 만들어버렸다.

하지만 막상 엑셀에 첨부하려니 GIF가 첨부는 되는데 재생이 안되는 문제가 있었다.

 

구글링 중 다행하게도 첨부방법을 알게되었지만.. 뭔가 발번역으로 인한건지 조금 이상한 부분이 있어 글로 남긴다.

 

미리 말하지만 내용이 많이 허접하다. 어찌저찌 해결이 되었길래 쓴다.

 

1. 먼저 개발 도구를 열어야 한다.

왼쪽 위 파일 탭 클릭

구석 아래 옵션 클릭

왼쪽 '리본 사용자 지정' -> '개발 도구'를 체크 후 확인을 누르면 된다.

2. Microsoft Web Browser 삽입

'개발 도구' 탭 클릭 후 '삽입' 클릭 후 오른쪽 아래 구석에 있는 기타 컨트롤 클릭

아래로 내리면 위와같이 Microsoft Web Browser가 있다. 확인 후 넣으면 된다.

혹시 개체를 삽입할 수 없습니다. 와 같은 메시지는 아래 4번을 보면 된다.

단, 이 때 크기는 gif를 모두 수용할 만큼 크게 잡으면 된다. (이유는 이따 나오지만 어차피 수정가능하니 대충 해도 괜찮)

 

3. GIF파일 준비

번거롭지만 GIF파일이 존재하는 위치를 알아야한다. 

글쓴이같은 경우 귀찮아서 대충 C에 던져놓았다. 

GIF파일명도 알아야 하기에 파일명도 abc.gif로 바꿔놓았다.

이제 파일의 전체 경로를 알아야 한다.

위와 같은 경우 전체 경로는 'C:\abc.gif' 가 된다.

 

4. 레지스트리 수정

왠지 번호가 2-1이 되어야 할 것 같다.

이 문제도 구글링 해보니 나오더라. (참고링크)

너무 잘 설명해주셔서 따로 적진 않겠지만 잘 모르겠다면 댓글을 달아주시면 답글을 달겠습니다.

 

5. VBA 코드 작성

말이 코드지 별 내용 없다.

VBA는 글쓴이도 한 번도 만져본적 없기에 그대로 따라했다.

그리고 여기서 왜 참고한 사이트가 발번역인지 느꼈다. (Private Sub가 개인 하위로 번역되있더라)

 

ALT+F11을 누르면 VBA창이 열린다. (혹은 '개발 도구'에 왼쪽에 'Visual Basic'이 있다.)

여기서 왼쪽의 Sheet1을 더블 클릭하면 코드 창이 열린다.(GIF를 삽입할, Web Browser를 삽입한 시트를 클릭하면 된다.)

코드에 아래 내용을 따라 적는다.

 

당연하게도 Navigate 다음에 있는 경로에는 자신이 지정한 경로를 적으면 된다.

이제 저장하고 다시 엑셀로 넘어가자.

 

6. 버튼 만들기

위의 코드에서 CommandButton1_Click() 은 말 그대로 버튼 클릭 시 동작 할 내용인 것 같다.

버튼 없이 항상 자동재생했으면 좋겠어서 Sheet1_Activate() 요런 이벤트가 있길래 써봤지만 잘 되지 않아 버튼을 썼다.

그러니 버튼을 만들어 보자.

 

버튼도 WebBrowser를 넣을 때와 같이 '개발 도구' -> '삽입' -> '명령 단추(ActiveX 컨트롤) 로 넣으면 된다.

그럼 아래와 같은 버튼이 나온다.

혹시 버튼위의 텍스트를 바꾸고 싶다면 우클릭 후 속성(I)를 들어가 바꾸면 된다.

 

7. 확인해보기

이제 버튼을 클릭하면 gif가 재생된다.

혹시 안된다면 다른 시트를 갔다와서 다시 해보자.

 

 

 

참고 사이트

1. www.oppadu.com/%EA%B0%9C%EC%B2%B4%EB%A5%BC-%EC%82%BD%EC%9E%85%ED%95%A0-%EC%88%98-%EC%97%86%EC%8A%B5%EB%8B%88%EB%8B%A4-%EC%98%A4%EB%A5%98-%ED%95%B4%EA%B2%B0/

2. ko.computersm.com/85-how-to-insert-animated-gif-files-in-excel-65703