VBA 에서슬라이드(1) 내에서 모든 Shape 을 삭제한다고 할 때 for each를 써서 아래와 같이 해봅시다.dim shp as Shapefor each shp in ActivePresentation.Slides(1).Shapesshp.deletenext shp실행해보면 다 사라질까요?안타깝게도 의도와 달리 모두다 사라지지 않습니다.절반 정도만 사라집니다.왜 그럴까요? 첨부한 PPTM 을 매크로를 허용하고 열어봅시다.'살펴보기' 화살표를 누릅니다. 도형추가를 눌러 랜덤한 위치에 도형을 10개 만들었습니다. 그다음 도형삭제(for each를 사용)을 클릭하여 도형을 삭제해봅시다.내부적으로 아래 소스대로 작동합니다. Dim shp As Shape For Each shp In ActivePresentat..

지난번 Color Quiz 에 이어서이번에는 Color Confusion 이라고 이름 지었습니다. Blue 는 무슨 색일까요?글자는 blue 이지만 실제 색은 빨간 색입니다.바로 이것이 이 퀴즈의 핵심입니다.우리의 뇌는 습관적으로 글자를 읽는 데에 훈련되어 있어서 'Blue(파란색)'라고 인식하기 쉬운 점을 이용한 '낚시' 퀴즈라고 볼 수 있습니다. 글자를 읽는 것이 아니라 '실제' 색을 읽는 것입니다. Green 은 녹색이 아니라 파란색이라고 해야겠지요. 혹자는 이런 것을 행동심리학적 분석까지 하기도 합니다.이렇게 고정관념에 맞서는 연습을 하면 시험 공부를 하기전에 좋다고 합니다.(믿거나 말거나) 실제 화면을 보겠습니다. 첫화면입니다.한 때 이슈가 되었던 색깔이 혼동되는 사진 2가지를 보여주면서 어떤 ..

10개의 색깔 중 다른 색깔을 고르는 쉽고, 단순한 게임입니다.유투브 동영상을 보고 PPT+VBA로 구현해보았습니다.4, 5단계로 가면 좀 어려울 수 있습니다. 첫화면입니다.1단계라 아주 쉽습니다.5초안에 맞춰야 합니다. 맞으면 별표가 늘어납니다.10개를 맞추면 다음 레벨로 올라갑니다. 2단계로 고고! 5초가 지나면 타임오버입니다.아직 다시 시작하는 벌칙 같은 것은 없습니다. 4단계 화면인데 조금 어려울 수 있습니다. 마지막 5단계인데 구분이 되시나요? 첫화면과 슬라이드 5장에 나머지는 VBA로 구현하였습니다.타이머API를 이용하기 때문에 오류 발생에 유의하였습니다.슬라이드쇼중에 ESC를 눌러도 에러가 나지 않지만 되도록 X버튼으로 종료하세요.레벨 별모양 옆에 DEBUG를 위한 잘안보이는 회색 글씨를 누..

VBA에서 int(Rnd * 5) 하면 0부터 4까지의 랜덤 숫자가 나온다. 1부터 5까지로 하려면Rnd*4+1로 해서 0부터 4까지 나온 수에 1을 더하면 된다. 그런데 랜덤 숫자는 바로 전에 나온 숫자와 중복된 숫자가 나올 수도 있다.이를 방지하는 방법을 생각해보자. 그저 단순히 이전 랜덤값을 저장했다가 비교할 수도 있지만중복된 수를 원천적으로 차단할 수는 없다. 그래서 배열을 이용해본다.5개의 배열에 1부터 5까지를 넣어 두고랜덤으로 배열을 섞어주는 것이다.어떤 값을 가진 배열들을 서로 섞는 것이라 중복된 수가 나올 수가 없다. 1부터 5까지의 수중에서 랜덤으로 추출한다고 가정하고소스 일부분을 보자 Private Num() As IntegerPrivate CurIndex As IntegerConst..

Matching Words 같은 짝 맞추기(짝 찾기) 퍼즐입니다. 원래 같은 모양끼리 짝을 찾는 게임인데 학습에 도움이 되도록 문자방식으로 바꾼 것입니다. 첫화면입니다. First, get the list에서 퀴즈 목록을 불러옵니다. 그다음 단계를 선택하고 NEXT 버튼으로 진행합니다. 퀴즈text파일 양식은 #나라별 수도 가나-아크라 가봉-리브르빌 가이아나-조지타운 감비아-반줄 과테말라-과테말라 그레나다-세인트조지스 이런 식으로 중간에 '-'만 있으면 됩니다. 샘플로 몇가지 퀴즈를 포함시켰습니다. 영어 불규칙동사 과거형 구구단 나라별수도 한글자음 발음 등입니다. 외워야 하는 것들을 퍼즐을 통해 재미있게(?) 외우자는 취지입니다. 구구단 화면 예입니다. 3단계 즉 3*3= 9개의 짝을 찾는 화면 입니다...

이진법(2진법)을 이용한 숫자(나이) 맞추기 마술을 PPT(ppsm)로 만들어 보았습니다. PPSM (파워포인트슬라이드쇼) 파일을 열어주세요. 매크로 사용을 허가해주시구요. 상대방에게 아무 숫자나 생각하라고 하세요. 혹은 상대방의 나이로 해도 되겠습니다. 예를 들어 15를 누르면 1부터 15까지의 수중에서 4차례의 질문만으로도 생각했던 숫자를 맞추게 됩니다. 1~15까지의 수를 4차례에 걸쳐서 생각한 숫자가 보이는지를 묻게 됩니다. 보이면(있으면) Yes, 없으면 No 를 눌러주세요. 1부터 31인 경우 5차례를 묻습니다. 1부터 127인 경우 7차례를 묻습니다. 만일 다른 임의의 숫자까지의 수중에서 추측하게 하려면 etc 를 누르세요. 300여개가 넘어가면 화면에 숫자 글씨가 다 보이지 않습니다. 25..

Speed Quiz(aka. HotSeat) Generator - Features -- Automatically presents words from a text file- You only have to prepare a text file containing word lists- supports time limit- sound effects included- you can pass(skip) any word- supports scoring 파워포인트 스피드 퀴즈 생성기입니다.영어단어, 사자성어, 속담, 국가별수도, 각종 퀴즈를 텍스트 파일만 작성하면 랜덤순서, 시간제한, 점수카운트, 효과음 등의 지원되는 스피드 퀴즈가 생성됩니다..PPSM 파일이라 바로 슬라이드쇼가 실행됩니다.(수정은 ppsm 파일을 쉬프..

지난 포스트에 이어참가인원과 간단한 상품/벌칙이 입력 가능한 제대로 작동하는 ppt 사다리 타기 버전 2입니다. A working version of Ladder game(SADARI)1)choose how many people will join,2)set the penalties or prizes 3)and Press 'GO"4)On the ladder slide, click on the numbers on top. 슬라이드 1,2,3,4는 지우지 마시고 살려두세요.슬라이드 5에 사다리 슬라이드가 생성됩니다. PowerPoinT 2010 에서 작성되었습니다.매크로 사용을 허용해주어야 합니다.F5 등을 눌러 슬라이드를 시작합니다. 먼저 참가 인원을 선택합니다.최소 3명에서 최대 8명까지로 했습니다. 그 ..