❶ 如何在ppt中設置控制項按鈕
簡單！在Powerpoint最下面有一個有一個「自選圖形」的按鈕，選一個動作按鈕，然後再為這個動作按鈕設置想要的連接就可以了
❷ PPT復選框「提交」按鈕代碼怎麼設置正確答案ABCD
太復雜了，只用一個if就可以了，看下面程序
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True Then
MsgBox "你真厲害，完全正確！", vbOKOnly, "提示"
ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True Or CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True Or CheckBox1.Value = True And CheckBox3.Value = True And CheckBox4.Value = True Or CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True Then
MsgBox "只選對3個，繼續努力！", vbOKOnly, "提示"
ElseIf CheckBox1.Value = True And CheckBox2.Value = True Or CheckBox1.Value = True And CheckBox3.Value = True Or CheckBox1.Value = True And CheckBox4.Value = True Or CheckBox2.Value = True And CheckBox3.Value = True Or CheckBox2.Value = True And CheckBox4.Value = True Or CheckBox3.Value = True And CheckBox4.Value = True Then
MsgBox "只選對2個，繼續努力！", vbOKOnly, "提示"
ElseIf CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Or CheckBox4.Value = True Then
MsgBox "只選對1個，繼續努力！", vbOKOnly, "提示"
End If
如果滿意請採納，謝謝
❸ 怎麼利用PowerPoint中的VBA製作選擇題
1、運行PowerPoint2003，單擊「文件」-「保存」命令，彈出「另存為」對話框，文件名設為「測驗」，單擊「保存」命令。
2、單擊「插入」-「文本框」-「水平」命令，這時滑鼠變成「1」字型，在編輯區內單擊滑鼠左鍵拖動滑鼠拉出一個方框，在框內輸入第一題的題目「1.人造地球衛星的軌道半徑越大，則」。
3、下面我們來製作選項。單擊「視圖」-「工具欄」-「控制項工具箱」命令，彈出「控制項工具箱」，單擊「控制項工具箱」上的「選項按鈕」控制項，滑鼠變成十字型，按下滑鼠左鍵拖動滑鼠拉出一個方框。單擊「控制項工具箱」上的「屬性」命令，彈出「屬性」對話框，把「名稱」改為「ti1」，把「caption」改為「A.速度越小，周期越小」，其它設為默認。
圖2
其餘的三個選項的名稱分別為「ti2」、「ti3」、「ti4」，「caption」分別為「B.速度越小，周期越大」、「C.速度越大，周期越小」、「D.速度越大，周期越大」。
4、「下一題」按鈕的製作。單擊「控制項工具箱」中「命令按鈕」控制項，這時滑鼠變成十字型，如前在編輯區內拖拉出一個方框，松開滑鼠方框會變成一個按鈕。選中它，單擊滑鼠右鍵，在彈出的快捷菜單中選擇「屬性」命令，把「命令按鈕」屬性中的「caption」設為「下一題」。
這樣，第一題的界面就製作完成了。第二題我們可以按照第2-4步做出來，只是要把題目、各個選項值換一下，另外需要添加一個文本框命令，其名稱設為「sum」，命令按鈕的名稱改為「得分」。
三、添加代碼
1、單擊「控制項工具箱」上「查看代碼」控制項，彈出「Microsoft visual basic」編輯器，單擊「插入」-「模塊」命令，彈出「模塊」編輯窗口，在「模塊」編輯窗口輸入「public fen(2) as integer」。
2、選中第一題中「下一題」按鈕，單擊「控制項工具箱」上「查看代碼」控制項，彈出「Microsoft visual basic」編輯器，在「Private Sub CommandButton1_Click()」和「End Sub」之間輸入
If ti2.Value = True Then
fen(0) = 2
Else
fen(0) = 0
End If
With SlideShowWindows(1).View
.GotoSlide (2)
End With
3、選中最後一題中「得分「按鈕，單擊「控制項工具箱」上「查看代碼」控制項，彈出「Microsoft visual basic」編輯器，在「Private Sub CommandButton1_Click()」和「End Sub」之間輸入
If ti3.Value = True Then
fen(1) = 2
Else
fen(1) = 0
End If
Dim i, s
s = 0
For i = 0 To 2
s = s + fen(i)
Next
sum = s
好了，退出「Microsoft visual basic」編輯器，按F5試一下效果吧，怎麼樣，是不是和原來設計的一樣呢。