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、在每题的答案区添一个文本框,空格改变字体颜色。分别选定答案文本框运行宏,修改第一个答案的文本框的名为daan,第二个答案文本框名为daan1。

  4、然后分别选定选择动作设置,运行相应的宏。

  5、重置按钮也作动作设置运行宏。

  6、演示就OK了。

  下图是“答案文本框”与宏“修改对象名”相联命名的图解

  注意:制作练习时不管练习有几页,其代码都放在一个模块。

  认真的看一看GIF图相信大家能一下子明了了。

office办公软件入门基础教程 » WPS演示怎样制作选择题文档

本文链接:【WPS演示怎样制作选择题文档】https://www.officeapi.cn/55408.html

OFFICE,天天学一点,进步多一点

联系我们