평창올림픽 로고 애니메이션

강의 요약

2018 평창동계올림픽 개막을 기념하여 새로운 VBA 강의를 준비했습니다. 이번 강의에서는 평창올림픽의 성공적인 개최를 기원하며, 엑셀 VBA로 평창올림픽 로고 애니메이션을 직접 제작해봅니다.

엑셀 VBA의 첫 번째 강의로, VBA를 처음 접하는 초보자도 코드를 복사·붙여넣기만으로 손쉽게 따라 할 수 있도록 강의를 구성했습니다. 모든 코드를 완벽히 이해하기보다는, 'VBA로 이런 기능도 구현할 수 있구나' 하는 정도로 가볍게 살펴보며 VBA의 가능성을 체험해보세요.

1. 이미지에 매크로 입히기

1. 예제파일을 처음 열면 상단에 '콘텐츠 사용' 버튼이 표시됩니다. 해당 버튼을 클릭하여 매크로 기능을 활성화합니다.
2. 성화 이미지를 마우스 우클릭한 뒤 '매크로 지정' 메뉴로 이동합니다.
3. 매크로 목록에서 'Torch_Macro'를 선택한 뒤 '확인' 버튼을 눌러 성화 이미지에 매크로를 연결합니다.

2. 매크로 편집기에 코드 추가하기

1. '개발도구' 탭에서 'Visual Basic'을 클릭하거나 단축키 Alt + F11을 눌러 매크로 편집기로 이동합니다.
2. 좌측 프로젝트 탐색기에서 Btn_Action 모듈을 더블클릭하여 코드 창을 엽니다.
3. 아래 코드를 복사한 뒤 기존 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

4. '삽입' 탭으로 이동한 뒤 '텍스트 상자' - '가로 텍스트 상자'를 추가합니다.
5. 추가한 텍스트 상자를 선택한 뒤, 이름 상자에서 이름을 'TextBox'로 변경합니다.

3. 매크로 동작 확인하기

이제 평창올림픽 로고 애니메이션 매크로가 모두 완성되었습니다. 로고를 원하는 위치로 이동한 뒤 성화 이미지를 클릭하면, 올림픽 로고 애니메이션이 동작합니다.