WPS演示怎樣制作選擇題文檔

　　簡單的運(yùn)用宏就能輕松的制作選擇題，需注意的是必須線選中對象再運(yùn)行宏。以下是學(xué)習(xí)啦小編給大家整理的WPS演示制作選擇題文檔的技巧，希望能幫到你!

　　WPS宏運(yùn)行制作選擇題的教程：

　　下圖是實(shí)例效果圖：

　　制作方法：

　　1、用工具欄的文本工具輸入上圖的題與重置按鈕;

　　2、打開編輯器，插入模塊下面的代碼輸入;

　　Sub 修改對象名()

　　On Error GoTo err

　　ActiveWindow.Selection.ShapeRange.Name = InputBox("將對象名稱修改為：")

　　Exit Sub

　　err:

　　MsgBox "操作錯(cuò)誤。你需要選中一個(gè)對象。"

　　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 "對了!"

　　End Sub

　　Sub 修改對象名1()

　　On Error GoTo err

　　ActiveWindow.Selection.ShapeRange.Name = InputBox("將對象名稱修改為：")

　　Exit Sub

　　err:

　　MsgBox "操作錯(cuò)誤。你需要選中一個(gè)對象。"

　　End Sub

　　Sub B1()

　　ActivePresentation.Slides(1).Shapes("daan1").TextFrame.TextRange.Text = "B"

　　MsgBox "對了!"

　　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了。

　　下圖是“答案文本框”與宏“修改對象名”相聯(lián)命名的圖解

　　注意：制作練習(xí)時(shí)不管練習(xí)有幾頁，其代碼都放在一個(gè)模塊。

　　認(rèn)真的看一看GIF圖相信大家能一下子明了了。