- ·上一篇:wps文字如何插入拼音图解
- ·下一篇:wps表格如何使用搜索功能
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图相信大家能一下子明了了。