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

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

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

엑셀 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 11 투표
게시글평점
guest
17 댓글
Inline Feedbacks
모든 댓글 보기
서녘별
서녘별
2020년 2월 23일 6:18 오후
게시글평점 :
     

강의 잘 봤습니다. 강의 내용 중 매크로 내용 중에 WS.Shapes("TextBox").TextFrame2.TextRange.Text = ""이 부분이 계속 error가 나온다고 하는데 뭐가 잘못되었는지 잘 모르겠습니다. 알려 주시면감 하겠습니다.

서녘별
서녘별
2020년 2월 23일 6:36 오후
게시글평점 :
     

강의 잘 들었습니다. 강의 내용대로 Sub Torch_Click() Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets("sheet1") ws.Shapes("textbox").TextFrame2.TextRange.Text = "" HappyOlympic End Sub 이렇게… 더보기 »

노수련
노수련
2020년 3월 29일 8:26 오후
게시글평점 :
     

언젠가는 VBA를 할 수 있기를..ㅠㅠㅠ

해봐
해봐
2020년 4월 1일 3:24 오후
게시글평점 :
     

안녕하세요 VBA 생초보입니다..
오빠두 영상을 통해 VBa를 배워볼려 하는데 어느 영상부터 봐야할지 모르겠네요..
이번 화도 VBA 명령문에 대한 설명이 없어서요.. 어떤 영상부터 봐야할까요?
어떻게 공부하면 효율적으로 공부할 수 있을까요?

0ugi
0ugi
2020년 4월 16일 11:07 오전
게시글평점 :
     

강의 감사합니다!
본문 1-2 Torch_Click 매크로가 Torch_Macro 로 오기재되어있습니다~^^

0ugi
0ugi
2020년 4월 16일 11:24 오전
답글 남기기  0ugi

(기존 댓글이 수정이 되지않아 댓글로 수정내용 올립니다!) 강의 감사합니다! 1. 본문 1-2 Torch_Click 매크로가 Torch_Macro 로 오기재되어있습니다~^^ 2. 본문의 Torch_Click 매크로 코드 중 With구문인 With WS.Shapes("TextBox").TextFrame2.TextRange .Text = "" HappyOlympic… 더보기 »

superlynx
superlynx
2020년 8월 20일 12:16 오전
게시글평점 :
     

강의 잘봤습니다. 엑셀 얼른 잘하고 싶네용

사랑의신
사랑의신
2020년 10월 10일 7:53 오후
게시글평점 :
     

비디오에는 With 랑 End With 문이랑 없는데 Sub Torch_Click() Dim WB As Workbook Dim WS As Worksheet Set WB = ThisWorkbook Set WS = WB.Worksheets("Sheet1") WS.Shapes("TextBox").TextFrame2.TextRange.Text = ""   HappyOlympic WS.Shapes("TextBox").TextFrame2.TextRange.Text… 더보기 »

사랑의신
사랑의신
2020년 10월 10일 7:57 오후
답글 남기기  사랑의신

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 = "" End With     HappyOlympic With… 더보기 »

hope
hope
2020년 11월 19일 9:12 오전
게시글평점 :
     

저도 vba 능숙하게 다룰 수 있기를 바라며 열심히 공부하겠습니다!

백파
백파
2020년 11월 22일 5:45 오후
게시글평점 :
     

강의 잘 보았습니다, 잘 사용하겠습니다

옛꼬망
옛꼬망
2020년 12월 1일 12:35 오전
게시글평점 :
     

강의 수강완료!! 20.12.01

정처리다
정처리다
2021년 7월 26일 3:37 오전
게시글평점 :
     

강의 잘 보았습니다 엑셀 잘 다룬다 생각했는데 잘 배우고 있습니다^^;;

벌거숭이임금님
벌거숭이임금님
2021년 10월 27일 7:21 오후
게시글평점 :
     

좋은 강의 감사합니다.

17
0
여러분의 생각을 댓글로 남겨주세요.x