简单的运用宏就能轻松的制作选择题,需注意的是必须线选中对象再运行宏。以下是小编给大家整理的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
wps文字如何插入拼音图解
在编辑文档的时候可能会遇到有些平时不常用的文字或者词组,如果我们在WPS中为难读的文字添加上拼音,效果就会更好,但是对于大多数人来说还是不太懂,下面就让小编告诉你wps怎样为文字添加拼音 的方法。 wps为文字添加拼音的方法 首先,需要打开文档。我这里以WPS软件为例。 然后,输入你的文档。 接下来选中
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图相信大家能一下子明了了。
在wps表格如何转换成pdf
很多朋友需要将wps表格文档转换为pdf格式文件,下面小编为大家整理了教程 wps表格如何转换成pdf的方法 1.用wps2012打开您需要转换的wps表格文档(或者excel表格文档)。 2.选择WPS表格 -> 另存为(A) -> 输出为PDF格式 3.选择输出范围(默认是选择:整个工作