做一个“文本”,自定义动画中设置成“该文本在点击鼠标后自动出现”
用vba(宏)很容易实现你的功能,但99%的office用户都不习惯用宏功能。
****************************
补充内容:
某人解答的“触发器”,是适合多数人的办法。
想要操作简便,请看下面
用宏实现你要的功能“改变文字”(不是“覆盖法”),经过一中午的试验,代码已经调试成功,方法:
第一步:工具-宏-visualbasic编辑器,在左边的“工程”列表中双击“模块1”,右边显示出代码窗口。 复制下方的代码(2种代码自选一种)到代码窗内。
第二步:切换到幻灯片编辑窗口,在幻灯片1中编排几个文本框,第1个文本框的内容是“我是谁”,单击“我是谁”,然后在出现的文本边框线上右键单击-弹出菜单-动作设置-在“单击鼠标”栏目中选“运行宏”-在列表中选“a”。
解释:播放幻灯后,单击“我是谁”将触发名为“a”的宏。“a”是下方代码中的“宏a”,宏a的作用是改变“我是谁”内容。
代码一:根据文本框“名字”修改内容
用法:宏a()中的"rectangle 2"就是“我是谁”这个文本框的内部名字,每个文本框的名称都不同,用户是看不到的。 你实际使用时,“我是谁”的名称不一定是"rectangle 2",怎么查名称呢?--就用宏abc()
操作方法是,在“我是谁”所在的幻灯片上,选菜单“工具”-“宏”,列表中选“abc”,就可以启动abc这个宏。 它会把当前幻灯片上所有的文本框名依次告诉你,你需要记下“我是谁”这个文本框的名称(可能是"rectangle 2"也可能是3或4),然后填在宏a()代码的相应位置。
另一个要改的地方你知道,就是“我是中国人”--单击后你想要显示的字。
sub abc()
with activewindow.selection.sliderange
for i = 1 to .shapes.count
msgbox "名称:" & .shapes(i).name & vbcrlf & "内容:" & .shapes(i).textframe.textrange.text
next i
end with
end sub
sub a()
activepresentation.slides(1).shapes("rectangle 2").textframe.textrange.text = "我是中国人"
end sub
代码二:根据文本框“编号”修改内容
用法:比上面简单,但是你还是要知道“编号”才可以,先查到“我是谁”文本框在幻灯片中的编号。--请手动试验,下面代码中的shapes(1)是编号1的文本框。 先放映幻灯片,点击“我是谁”,如果屏幕上有多个文本框的话,会有一个框的内容变成“我是中国人”,如果变错成其它的文本框了,你就要手动改编号为2,然后再播放继续试。
sub a()
activepresentation.slides(1).shapes(1).textframe.textrange.text = "我是中国人"
end sub
**********************
● 上面写得太长,总结一下操作: 选一种段代码粘贴到宏编辑器中--幻灯片中编几个文本框--把其中一个文本框加上动作,链接到宏a()上--放映--点击试验效果,如果变错就修改代码。
● 如果你要改的链接不止一个,那么自己编写其它宏吧,宏名就用a()、b()、c()这样。每个链接指向一个宏。
● 最后最重要一点是:播放时由于宏的作用,链接文字被改成“我是中国人”,放映完毕你会发现幻灯片中的文字也被改成了“我是中国人”。 所以放映完后,请执行一次“编辑”-“撤消”命令,就可以还原所作改动。
●我自己本来也不会做这个功能,如果不是你短信再次要求的话,我不会再关注到这个话题,也学不到新东西了。