Код (вставить в VisualBasicво вкладке разработчик)

КОДЫ ДЛЯ МАКРОСОВ В ПРОГРАММЕ POWERPOINT

Cозданиеквиза с функцией автопроверки ответа

Код (вставить в VisualBasicво вкладке разработчик)

Вставить во вкладку Module (будетработать для всейпрезентации)

Sub Correct()

ActivePresentation. SlideShowWindow. View. Next

(илиActivePresentation. SlideShowWindow. View. GotoSlide (43))

End Sub

Sub Wrong()

Output = MsgBox(" Your Answer is wrong. ", vbOKOnly, " Incorrect Answer" )

EndSub

Код для проверки текстового поля

Вставить в поле слайда (включить кликнув правойклавишей мыши по CommandButton) Красным выделено то, что нужно изменять

Private Sub CommandButton1_Click()

If TextBoxSnowman. Value = " snowman" Then

ActivePresentation. SlideShowWindow. View. Next

Else

Output = MsgBox(" Wrong", vbOKOnly, " Incorrect Answer" )

EndIf

EndSub

Вставить в Moduleдля очистки текстового поляпри нажатии на определённую кнопку

Sub Clean()

Slide42. TextBoxSnowman. Value = " "

EndSub

Код вставки для справки (вставляем на слайд)

PrivateSubCommandButton2_Click()

UserFormTable. Show

EndSub

Код для автопроверки двух и более текстовых полей

на одном слайде

Автопроверка (пишем на слайд)

Private Sub CommandButton1_Click()

If TextBoxSnowman. Value = " snowman" Then

Points. Caption = (Points. Caption) + 1

End If

If TextBoxSanta. Value = " Santa" Then

Points. Caption = (Points. Caption) + 1

End If

If Points. Caption = 2 Then

ActivePresentation. SlideShowWindow. View. Next

Else

Output = MsgBox(" Wrong. Do it again", vbOKOnly, " Incorrect Answer" )

Points. Caption = " 0"

End If

End Sub

Код для того, чтобыобъект, которыйсчитаетбаллы,

было не видно на слайде

PrivateSubPoints_Click()

Points. Visible = False

EndSub

Вставить в Moduleдля очистки текстового поля при нажатии на определённую кнопку

SubClean()

Slide42. TextBoxSnowman. Value = " "

Slide42. TextBoxSanta. Value = " "

Slide42. Points. Caption = " 0"

EndSub