이전 게시글( https://konahn.tistory.com/entry/roulette )의 최신 버전입니다.
- 룰렛 회전판 모음입니다. 매크로 필요 없이 회전하다가 마우스를 클릭하면 멈추는 방식입니다.
슬라이드쇼 설정이 '발표자가 진행'으로 설정을 유지해야 합니다. 열어서 회전판의 텍스트를 바꿔서 이용하세요.
매크로 없이 만드는 방법:
1-1. 슬라이드쇼 설정이 '발표자가 진행'이고, 전환메뉴에서 '마우스 클릭할 때' 전환에 체크가 된 상태에서
1-2. 회전판에 회전 효과를 추가하고 애니메이션 창에서 회전 애니메이션효과 우클릭 후 타이밍 속성에서 '다음 클릭할 때까지' 무한 반복시키고
1-3. 슬라이드에 하나의 버튼을 만들고 애니메이션 효과 -나타나기를 추가하고, 클릭할 때 나타나게 하면 무한회전하다가 클릭하면 멈추고 다른 버튼이 나타나기 때문에 슬라이드쇼가 종료하지 않고 매크로 없이도 회전판을 만들 수 있습니다. 아래의 샘플파일을 받아서 열어서 애니메이션 효과 속성을 확인해보세요.
* * * * * *
- 다음으로 위와 같은 룰렛을 자동으로 생성해주는 자동 생성기입니다.
자동 룰렛생성 방법:
1. 매크로 허용해서 RouletteMaker.pptm 을 열고 Alt-F8로 매크로를 실행합니다.
2. 회전칸 수를 입력합니다. 2개~400개 까지 입력 가능합니다.
3. 단순 무한 반복은 가능하나 '다음 클릭할 때까지' 애니메이션을 반복하게 하는 것이 VBA로는 불가능하기 때문에 사용자가 애니메이션 효과의 타이밍 속성을 직접 적용해줘야 합니다.
(애니메이션 리본 메뉴에서 애니메이션 창을 눌러 우측에 효과 창이 뜨면 두번째 Arc_Group 의 효과를 우클릭하고 타이밍 속성에서 일단 '슬라이드가 끝날 때까지'를 선택하고 확인한 다음, 다시 타이밍 속성으로 들어가서 '다음 클릭할 때까지'로 선택하고 확인을 누르면 됩니다.)
4. 이제 슬라이드 쇼를 실행하여 동작을 확인합니다. 무한히 회전하는 회전판이나 화면 아무데나 클릭하면 멈춥니다. Replay 버튼이 나타나고 클릭하면 다시 이전 슬라이드로 가서 0초후 전환으로 현재 슬라이드로 돌아와서 무한히 회전하게 됩니다. 2슬라이드는 애니메이션 초기화용으로 0초후 자동전환으로 설정되어 있습니다. 다시 시작할 때 이 슬라이드로 넘어와서 3슬라이드의 애니메이션이 다시 시작합니다.
5. 작업완료 후 1슬라이드는 삭제해버려도 무관하고 , 매크로 없이 pptx/ppsx 파일로 저장이 가능합니다. 따라서 모바일이나 웹브라우저 버전 파워포인트에서도 작동합니다.
아래는 사용법 시연 영상입니다.
아래는 결과 샘플입니다.
랜덤한 색깔을 채우는데 짝수이면 두 가지색을 번갈아가면서 채우고 3칸이면 3색, 5칸이면 5색, 7칸이면 7색, 11칸이면 11색 이렇게 소수인경우는 칸 수만큼 다른 색으로 채우게 됩니다.
* * * * * *
- 마지막으로 회전판이 자동으로 멈추는 VBA버전입니다. 몇가지 룰렛 회전판을 미리 만들어놓어서 슬라이드 마스터에 넣어두고 불러와서 자동으로 멈춰주는 버전입니다. 자동으로 멈추기 때문에 눌러줄 필요가 없습니다. 회전판의 글자를 바꾸려면 보기 -슬라이드마스터로 들어가서 4번째~11번째 레이아웃에서 고쳐주어야 합니다.
아래와 같이 4, 6, 8, 12, 16, 20, 26, 30칸 짜리 룰렛을 불러와서 회전시키고 자동으로 멈춥니다.
아래는 8칸짜리 화면입니다. 다음 슬라이드로 넘어가지 않고 현재 1슬라이드에서 계속 회전판을 표시합니다.
그리고 첫화면에서 맨 오른쪽 custom 룰렛버튼을 누르면 사용자가 룰렛 칸수를 마음대로 조정할 수 있습니다. 이건 2슬라이드에 표시합니다. 생성된 룰렛판은 쇼를 마치면 삭제됩니다. (삭제되지 않게 하려면 ppsm 파일을 쉬프트 우클릭하고 열어서 Alt-F11 소스에서 OnSlideShowTerminate 함수에서 Call removeTrash(sld)라인을 주석처리하세요.) 원하는 칸 수 만큼 정수로 입력합니다. 2개 ~ 400 개까지 입력하세요. 400개 이상은 너무 시간이 오려 걸려서 제한했습니다.
2슬라이드에 룰렛이 표시되고 회전하다가 자동으로 멈추므로 클릭할 필요가 없습니다. Replay 버튼은 현재 룰렛판을 다시 회전시킵니다. 회전 각도는 달라지므로 결과가 달라집니다. 빨간색 세모를 누르면 룰렛 개수를 입력받아 다시 새로운 룰렛회전판을 생성해서 회전시키고 자동으로 멈춥니다. 오른쪽 아래 홈버튼을 누르면 첫화면으로 돌아갑니다.
첨부파일을 다운로드 받으세요.
1. Roulette 샘플 5개 (매크로 필요 없음, 무한 회전판을 클릭하여 멈춤)
2. Roulette 생성기( 매크로 허용 필요, 결과물은 매크로 필요 없음, 결과물 Animation 타이밍속성 수정 필요. 무한 회전판을 클릭하여 멈춤.)
3. 자동으로 멈추는 VBA버전( 매크로 허용 필요, 자동으로 멈추는 회전판 기능, 미리 만들어진 룰렛 컬렉션 및 원하는 개수의 custom 룰렛도 생성 가능) ※ 다운받으면 탐색기 파일 우클릭 속성에서 차단해제부터 하세요
주의: 파워포인트 2010이상에서 작동합니다. 2007이하는 VBA로 애니메이션복사 등이 지원되지 않습니다.
** 알림: 회전판 개수가 짝수인 경우 단순 2가지 색깔 반복으로 인해 간혹, 일본제국주의 상징으로 알려진 '욱일기'와 흡사한 패턴이 나오기도 하는데 이것은 절대 의도한 것이 아닙니다. 자동 생성시에는 매번 색깔이 바뀝니다. **
💥⚡타이밍 효과를 자동으로 패치해주는 자동생성기 버전2 ⚡💥
'PPT+VBA' 카테고리의 다른 글
| 도형병합으로 정다각형(Regular Polygon) 그리기 (4) | 2020.12.16 |
|---|---|
| PPT 홀수, 짝수페이지 따로 출력하기 (수동 양면 출력) (1) | 2020.12.02 |
| 파워포인트 슬라이드 고해상도(고화질)로 저장 (0) | 2020.11.27 |
| 룰렛 회전판 생성기 v2 (6) | 2020.10.16 |
| 슬라이드의 테이블(표)과 차트의 데이터 연동시키기 (1) | 2020.10.08 |
| 일괄로 일정한 틀의 이미지 대량 생성 (2) | 2020.08.28 |
| [WordScatter] 슬라이드에 랜덤 단어 흩뿌리기 (2) | 2020.08.02 |
| 슬라이드 구역별로 페이지 번호 삽입 (1) | 2020.07.24 |
최근댓글