룰렛 회전판 생성기 v2

 

바로 이전 게시글의 VBA 필요 없는 룰렛만드는 룰렛 생성기를 좀더 편리하게 만들 수 있도록 개선한 버전입니다.

위 그림에 보다시피 리본 메뉴를 추가했습니다.

 

일단 룰렛 항목수를 선택 혹은 입력하고 룰렛 생성을 누르면 3슬라이드에 원하는 개수대로 룰렛판이 생성이 됩니다.

계속 누르면 색깔이 바뀝니다. 다른 작업 필요 없이 룰렛 숫자만 바꾸고 생성을 클릭하기만 하면 됩니다.

 

그런데 파워포인트 애니메이션의 설정 혹은 버그 때문에 기본으로 전환메뉴에 '마우스로 클릭할 때' 전환에 체크가 되어 있기 때문에 다음클릭할 때까지 반복 옵션이 제대로 작동하지 않고 클릭할 때 나타나는 애니메이션이 무시되고 슬라이드가 넘어가거나 종료되어 버립니다. 내부적으로 슬라이드 마스터 4번 레이아웃에 회전판 샘플을 넣어두고 애니메이션 효과를 복사해오는데 그대록 복사해 오는데도 다음클릭할 때까지 무한반복 애니메이션이 클릭해도 멈추지 않는 오류가 발생합니다. 그래서 타이밍 효과를 패치해야 합니다.

방법은 타이밍 옵션에서 반복옵션을 다른 걸로 설정했다가 다시 타이밍 반복옵션을 '다음 클릭할 때까지'로 바꿔서 적용하면 됩니다. 위 대화창에서 취소를 누르고 수작업으로 할 수도 있지만 '확인'을 누르면 SendKeys 를 이용해서 위 과정을 자동으로 처리해줍니다.

 

마지막으로 ppsx 로 저장하면 됩니다. 

1슬라이드 제외를 체크하면 숨겨진 1슬라이드는 제외하고 저장합니다.

(내부적으로 CustomUI XML을 삭제하고 저장합니다.)

 

추가로 엑셀 시트에 항목에 들어갈 아이템들을 저장해서 불러오면 자동으로 채워주는 기능도 있습니다.

별다른 양식 없이 A열에 항목 내용을 아래로 쭉 적어주면 됩니다. 빈 항목은 숫자로 채워집니다.

회전판 항목 불러오기를 누르면 현재 회전판이 있으면 바로 반영해주고 아직 생성되지 않았으면 일단 메모리상에 불러옵니다. 항목 취소하기를 누르면 메모리상의 항목들을 지우고 기본 숫자로 항목들이 채워집니다.

 

글자가 너무 크면 Font size 값을 선택하거나 입력해서 글자크기를 바꿔줄 수도 있습니다.

기본을 선택하면 생성시에 일반적인 수치로 계산해서 글자크기를 설정합니다.

 

다음은 위와 같은 회전판 만들기 시연 영상이니 사용법을 참고하세요.

 

 

매크로 파일 첨부합니다. (다운로드받은 매크로파일은 파일속성에서 차단해제 및 열 때 매크로 허용하세요.)

주의: 파워포인트 2010이상에서 작동합니다. 2007이하는 VBA로 애니메이션복사 등이 지원되지 않습니다.

 

RouletteMaker2.pptm

1.41MB

 

회전판 항목 샘플

룰렛회전판항목1.xlsx

0.01MB

 

😎 참고: 회전 룰렛이 회전하다가 자동으로 멈추는 버전 👍

https://konahn.tistory.com/entry/Roulette2