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

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

　　WPS宏運行制作選擇題的教程：

　　下圖是實例效果圖：

　　制作方法：

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

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

　　Sub 修改對象名()

　　On Error GoTo err

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

　　Exit Sub

　　err:

　　MsgBox "操作錯誤。你需要選中一個對象。"

　　End Sub

　　Sub B()

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

　　MsgBox "錯了!"

　　End Sub

　　Sub A()

　　ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "A"

　　MsgBox "錯了!"

　　End Sub

　　Sub C()

　　ActivePresentation.Slides(1).Shapes("daan").TextFrame.TextRange.Text = "C"

　　MsgBox "錯了!"

　　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 "操作錯誤。你需要選中一個對象。"

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

　　End Sub

　　Sub C1()

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

　　MsgBox "錯了!"

　　End Sub

　　Sub D1()

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

　　MsgBox "錯了!"

　　End Sub

　　Sub 重置()

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

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

　　End Sub

　　3、在每題的答案區(qū)添一個文本框，空格改變字體顏色。分別選定答案文本框運行宏，修改第一個答案的文本框的名為daan，第二個答案文本框名為daan1。

　　4、然后分別選定選擇動作設置，運行相應的宏。

　　5、重置按鈕也作動作設置運行宏。

　　6、演示就OK了。

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

　　注意：制作練習時不管練習有幾頁，其代碼都放在一個模塊。

　　認真的看一看GIF圖相信大家能一下子明了了。