- wps办公软件使用教程:四张动图帮你弄懂如何用WPS⁺云办公管理团队成员
- wps工作表格制作教程:在wps文字中怎样删除近期文档记录
- wps演示倒计时5分钟怎么做:WPS中Word里无法插入电子印章怎么办
- wps动画制作教程:wps演示怎样插入wps表格
简单的运用宏就能轻松的制作选择题,需注意的是必须线选中对象再运行宏。以下是小编给大家整理的WPS演示制作选择题文档的技巧,pdf怎么转换成word,希望能帮到你!
WPS宏运行制作选择题的教程:
下图是实例效果图:
制作方法:
1、用工具栏的文本工具输入上图的题与重置按钮;
2、打开编辑器,word教程基础入门,插入模块下面的代码输入;
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,wordpress教程,第二个答案文本框名为daan1。
4、然后分别选定选择动作设置,运行相应的宏。
5、重置按钮也作动作设置运行宏。
6、演示就OK了。
下图是“答案文本框”与宏“修改对象名”相联命名的图解
注意:制作练习时不管练习有几页,其代码都放在一个模块。
认真的看一看GIF图相信大家能一下子明了了。
上一篇:wps教程:wps表格如何使用搜索功能 下一篇:wps云文档使用教程:wps文字如何插入拼音图解
郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。