엑셀 VBA 도형 애니메이션 :: 움직이는 평창올림픽 로고 만들기

엑셀 VBA를 사용하여 평창올림픽 애니메이션 로고를 제작합니다.

홈페이지 » 엑셀 VBA 도형 애니메이션 :: 움직이는 평창올림픽 로고 만들기

작성자 :
오빠두엑셀
최종 수정일 : 2021. 11. 10. 03:05
URL 복사
메모 남기기 : (18)

엑셀 VBA 매크로를 사용한 평창올림픽 로고 애니메이션 만들기

엑셀 VBA 애니메이션 만들기 목차 바로가기
강의 요약

평창올림픽 개막식을 맞아, 새로운 VBA 강의를 준비했습니다. 이번강의에서는 2018 평창올림픽의 성공을 기원하며, 엑셀 VBA로 평창올림픽 로고 애니메이션을 제작합니다.

평창 올림픽 로고 애니메이션 매크로 gif
이번 강의에서는 엑셀 VBA로 평창올림픽 로고 애니메이션을 제작합니다.

엑셀 VBA의 첫번째 강의로, VBA를 처음 접하시는 초보자도 복사/붙여넣기만으로 쉽게 따라할 수 있도록 강의를 준비하였습니다. 내용을 이해하기 보단, 'VBA로 이러한 기능도 구현 할 수 있구나'라는 정도로 이해하고 간단하게 짚고 넘어가보겠습니다.

영상강의


예제파일 다운로드

오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.

  • [VBA기초강의] 평창 올림픽 로고 애니메이션
    예제파일

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

  1. 예제파일을 처음 실행하면 상단에 '콘텐츠사용' 버튼이 나옵니다. 버튼을 클릭하여 매크로를 활성화합니다.

    콘텐츠 사용 버튼 활성화
    상단의 '콘텐츠 사용' 버튼을 클릭하여 매크로를 활성화합니다.
  2. 성화이미지를 우클릭 한 뒤, '매크로 지정'으로 이동합니다.

    VBA 애니메이션 매크로 지정
    성화 이미지를 우클릭 한 뒤, '매크로 지정'을 클릭합니다
  3. 매크로 목록 중 'Torch_Macro'를 선택한 뒤, '확인'을 눌러 이미지에 매크로 입히는 작업을 마무리합니다.

    Tourch Click 매크로 입히기
    매크로 목록 중 Touch_Click 를 선택한 뒤, '확인'을 눌러 마무리합니다.

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

  1. 개발도구 - Visual Basic을 클릭하거나 키보드 Alt + F11 키를 눌러 매크로 편집기로 이동합니다.

    매크로 편집기 이동
    매크로 편집기로 이동합니다.
  2. 좌측 Btn_Action 모듈을 더블클릭합니다.

    Btn Action 모듈 클릭
    프로젝트 창에서 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'로 변경합니다.

    텍스트 상자 이름 변경
    텍스트상자의 이름을 'TextBox'로 변경합니다.

3. 매크로 동작 확인하기

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

5 12 투표
게시글평점
18 댓글
Inline Feedbacks
모든 댓글 보기
18
0
여러분의 생각을 댓글로 남겨주세요.x