WPS演示怎樣制作選擇題文檔
WPS演示怎樣制作選擇題文檔
簡(jiǎn)單的運(yùn)用宏就能輕松的制作選擇題，需注意的是必須線選中對(duì)象再運(yùn)行宏。以下是學(xué)習(xí)啦小編給大家整理的WPS演示制作選擇題文檔的技巧，希望能幫到你!
WPS宏運(yùn)行制作選擇題的教程：
下圖是實(shí)例效果圖：
制作方法：
1、用工具欄的文本工具輸入上圖的題與重置按鈕;
2、打開(kāi)編輯器，插入模塊下面的代碼輸入;
Sub 修改對(duì)象名()
On Error GoTo err
ActiveWindow.Selection.ShapeRange.Name = InputBox("將對(duì)象名稱修改為：")
Exit Sub
err:
MsgBox "操作錯(cuò)誤。你需要選中一個(gè)對(duì)象。"
End Sub
Sub B()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "B"
MsgBox "錯(cuò)了!"
End Sub
Sub A()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "A"
MsgBox "錯(cuò)了!"
End Sub
Sub C()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "C"
MsgBox "錯(cuò)了!"
End Sub
Sub D()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "D"
MsgBox "對(duì)了!"
End Sub
Sub 修改對(duì)象名1()
On Error GoTo err
ActiveWindow.Selection.ShapeRange.Name = InputBox("將對(duì)象名稱修改為：")
Exit Sub
err:
MsgBox "操作錯(cuò)誤。你需要選中一個(gè)對(duì)象。"
End Sub
Sub B1()
ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "B"
MsgBox "對(duì)了!"
End Sub
Sub A1()
ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "A"
MsgBox "錯(cuò)了!"
End Sub
Sub C1()
ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "C"
MsgBox "錯(cuò)了!"
End Sub
Sub D1()
ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "D"
MsgBox "錯(cuò)了!"
End Sub
Sub 重置()
ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = ""
ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = ""
End Sub
3、在每題的答案區(qū)添一個(gè)文本框，空格改變字體顏色。分別選定答案文本框運(yùn)行宏，修改第一個(gè)答案的文本框的名為daan，第二個(gè)答案文本框名為daan1。
4、然后分別選定選擇動(dòng)作設(shè)置，運(yùn)行相應(yīng)的宏。
5、重置按鈕也作動(dòng)作設(shè)置運(yùn)行宏。
6、演示就OK了。
下圖是“答案文本框”與宏“修改對(duì)象名”相聯(lián)命名的圖解
注意：制作練習(xí)時(shí)不管練習(xí)有幾頁(yè)，其代碼都放在一個(gè)模塊。
認(rèn)真的看一看GIF圖相信大家能一下子明了了。