亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > 金山WPS教程 > WPS演示教程 > WPS演示怎樣制作選擇題文檔

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

      時(shí)間: 廣達(dá)646 分享

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

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

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

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

        制作方法:

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

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

        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í)有幾頁,其代碼都放在一個(gè)模塊。

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

      347539