PPT 무작위 주제 선택
디자인 테마 추출 인터페이스
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).
팁: 슬라이드 쇼 상태에서는 세 개의 텍스트 상자 컨트롤 중 텍스트를 선택하고 삭제하여 지울 수 있습니다.
코드맵
매크로 코드
개인 하위 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)
끝단 접합