엑셀 VBA 매크로를 사용한 평창올림픽 로고 애니메이션 만들기
엑셀 VBA 애니메이션 만들기 목차 바로가기
강의 요약
평창올림픽 개막식을 맞아, 새로운 VBA 강의를 준비했습니다. 이번강의에서는 2018 평창올림픽의 성공을 기원하며, 엑셀 VBA로 평창올림픽 로고 애니메이션을 제작합니다.
엑셀 VBA의 첫번째 강의로, VBA를 처음 접하시는 초보자도 복사/붙여넣기만으로 쉽게 따라할 수 있도록 강의를 준비하였습니다. 내용을 이해하기 보단, 'VBA로 이러한 기능도 구현 할 수 있구나'라는 정도로 이해하고 간단하게 짚고 넘어가보겠습니다.
영상강의
예제파일 다운로드
오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.
- [VBA기초강의] 평창 올림픽 로고 애니메이션예제파일
1. 이미지에 매크로 입히기
- 예제파일을 처음 실행하면 상단에 '콘텐츠사용' 버튼이 나옵니다. 버튼을 클릭하여 매크로를 활성화합니다.
상단의 '콘텐츠 사용' 버튼을 클릭하여 매크로를 활성화합니다. - 성화이미지를 우클릭 한 뒤, '매크로 지정'으로 이동합니다.
성화 이미지를 우클릭 한 뒤, '매크로 지정'을 클릭합니다 - 매크로 목록 중 'Torch_Macro'를 선택한 뒤, '확인'을 눌러 이미지에 매크로 입히는 작업을 마무리합니다.
매크로 목록 중 Touch_Click 를 선택한 뒤, '확인'을 눌러 마무리합니다.
2. 매크로 편집기에 코드 추가하기
- 개발도구 - Visual Basic을 클릭하거나 키보드 Alt + F11 키를 눌러 매크로 편집기로 이동합니다.
매크로 편집기로 이동합니다. - 좌측 Btn_Action 모듈을 더블클릭합니다.
프로젝트 창에서 Btn_Action 모듈을 더블클릭합니다. - 아래 코드를 복사한 뒤, Torch_Click 명령문의 내용을 변경합니다.
Sub Torch_Click() Dim WB As Workbook Dim WS As Worksheet Set WB = ThisWorkbook Set WS = WB.Worksheets("Sheet1") With WS.Shapes("TextBox").TextFrame2.TextRange .Text = "" HappyOlympic .Text = "평창올림픽 성공기원" End With End Sub
- '삽입' - '텍스트상자' - '가로텍스트상자'를 추가합니다.
가로 텍스트 상자를 추가합니다. - 추가한 텍스트상자의 이름을 'TextBox'로 변경합니다.
텍스트상자의 이름을 'TextBox'로 변경합니다.
3. 매크로 동작 확인하기
평창 올림픽 로고 애니메이션 매크로가 완성되었습니다. 이제 로고를 원하는 위치로 이동한 뒤, 성화를 클릭하면 올림픽로고 애니메이션이 동작합니다.
- 예제파일을 처음 실행하면 상단에 '콘텐츠사용' 버튼이 나옵니다. 버튼을 클릭하여 매크로를 활성화합니다.
