PPT20 10 을 열고 프레젠테이션을 매크로 지원 PPT 프레젠테이션 형식 (예: .. pptm 형식, 매크로 코드가 있는 프레젠테이션을 저장해야 함) 으로 저장한 다음 첫 번째 슬라이드에서 주제 선택 인터페이스를 디자인하고, 먼저 세 개의 텍스트 상자를 삽입하고, 필요한 텍스트를 작성한 다음 해당 [등록 정보] 대화 상자를 열고 [이름] 후 명령 단추 이름을 "추출된 주제 시작, 중지, 열기" 로 변경한 다음 Caption 뒤에 단추에 표시된 이름 (여기서 설정한 버튼 이름과 동일하게 자유롭게 대문자화할 수 있음) 을 채우고 글꼴, 크기, 크기를 설정합니다
세 개의 텍스트 상자 컨트롤을 더 삽입합니다. 마찬가지로 등록 정보 대화 상자에서 이름을 추출 상자, 결과 상자 및 추출된 주제로 변경합니다. "추출 상자" 를 "시작" 과 "중지" 명령 버튼 컨트롤 사이에 배치하고 "결과 상자" 를 "무엇을 추출했습니까? 번호 텍스트, "선택한 주제" 를 적절한 크기로 드래그하여 아래에 놓습니다 (그림 1).
그런 다음 새 슬라이드를 만들고, 선택한 주제 배치 인터페이스를 디자인하고, 그 위에 링크를 디자인하고, 선택한 주제 인터페이스의 슬라이드로 돌아갑니다. 이 슬라이드를 여러 개 복사하고 해당 슬라이드에 해당 주제를 입력합니다. 첫 번째 주제는 두 번째 슬라이드에, 두 번째 주제는 세 번째 슬라이드에 있습니다.
매크로 코드 작성
다음으로 ALT+F 1 1 을 눌러 VBA 매크로 편집 창을 열고 왼쪽에 있는 슬라이드1을 두 번 클릭하여 다음 코드를 오른쪽 창에 복사하고 저장합니다.
개인 하위 start _Click ()
멈춰. Enabled = True 중지 버튼이 현재 활성화되어 있습니다.
A 를 정수로 어둡게 합니다
불규칙하게 만들다
하다
A = 수정 (rnd *10+1)' 임의 함수를 사용합니다.
추출 상자. text = a
결과 상자. 텍스트 = ""
여러 활동
고리
끝단 접합
개인 Sub stop _Click ()
결과 상자. Text = 추출 상자. 텍스트
선택한 주제 = 선택한 주제+추출 상자+"#"' 주제 레이블은 # 으로 구분됩니다.
멈춰. 활성화 = false
끝
끝단 접합
Private Sub 는 추출된 topic _Click () 을 엽니다
ActivePresentation 슬라이드 쇼 창 _
. view.goto slideval (추출 상자). 텍스트+1)
끝단 접합
문제를 임의로 선택하여 엽니다.
주제를 추출한 후 슬라이드를 재생하고 첫 페이지의 "시작" 버튼을 클릭합니다. 1 부터 10 까지의 10 자리 숫자가 다음 텍스트 상자에 무작위로 빠르게 표시됩니다. 중지 버튼을 클릭하면 숫자가 스크롤을 중지하고 추출된 주제 번호를 표시합니다. 동시에 상단에는 "제목 X 를 추출했습니다" 라는 힌트가 표시되고 하단에는 "선택한 제목" 이 표시됩니다. 아래 "추출된 주제 열기" 버튼을 클릭하여 추출된 주제의 슬라이드로 전환합니다. 플레이어가 주제를 완성한 후 뒤로 링크를 클릭하여 주제 추출 페이지로 돌아가서 다음 플레이어에 대한 주제를 계속 추출합니다 (그림 2).
팁: 슬라이드 쇼 상태에서는 세 개의 텍스트 상자 컨트롤 중 텍스트를 선택하고 삭제하여 지울 수 있습니다.