做一個(gè)“文本”,自定義動(dòng)畫中設(shè)置成“該文本在點(diǎn)擊鼠標(biāo)后自動(dòng)出現(xiàn)”
用vba(宏)很容易實(shí)現(xiàn)你的功能,但99%的office用戶都不習(xí)慣用宏功能。
****************************
補(bǔ)充內(nèi)容:
某人解答的“觸發(fā)器”,是適合多數(shù)人的辦法。
想要操作簡(jiǎn)便,請(qǐng)看下面
用宏實(shí)現(xiàn)你要的功能“改變文字”(不是“覆蓋法”),經(jīng)過一中午的試驗(yàn),代碼已經(jīng)調(diào)試成功,方法:
第一步:工具-宏-visualbasic編輯器,在左邊的“工程”列表中雙擊“模塊1”,右邊顯示出代碼窗口。 復(fù)制下方的代碼(2種代碼自選一種)到代碼窗內(nèi)。
第二步:切換到幻燈片編輯窗口,在幻燈片1中編排幾個(gè)文本框,第1個(gè)文本框的內(nèi)容是“我是誰”,單擊“我是誰”,然后在出現(xiàn)的文本邊框線上右鍵單擊-彈出菜單-動(dòng)作設(shè)置-在“單擊鼠標(biāo)”欄目中選“運(yùn)行宏”-在列表中選“a”。
解釋:播放幻燈后,單擊“我是誰”將觸發(fā)名為“a”的宏。“a”是下方代碼中的“宏a”,宏a的作用是改變“我是誰”內(nèi)容。
代碼一:根據(jù)文本框“名字”修改內(nèi)容
用法:宏a()中的"rectangle 2"就是“我是誰”這個(gè)文本框的內(nèi)部名字,每個(gè)文本框的名稱都不同,用戶是看不到的。 你實(shí)際使用時(shí),“我是誰”的名稱不一定是"rectangle 2",怎么查名稱呢?--就用宏abc()
操作方法是,在“我是誰”所在的幻燈片上,選菜單“工具”-“宏”,列表中選“abc”,就可以啟動(dòng)abc這個(gè)宏。 它會(huì)把當(dāng)前幻燈片上所有的文本框名依次告訴你,你需要記下“我是誰”這個(gè)文本框的名稱(可能是"rectangle 2"也可能是3或4),然后填在宏a()代碼的相應(yīng)位置。
另一個(gè)要改的地方你知道,就是“我是中國(guó)人”--單擊后你想要顯示的字。
sub abc()
with activewindow.selection.sliderange
for i = 1 to .shapes.count
msgbox "名稱:" & .shapes(i).name & vbcrlf & "內(nèi)容:" & .shapes(i).textframe.textrange.text
next i
end with
end sub
sub a()
activepresentation.slides(1).shapes("rectangle 2").textframe.textrange.text = "我是中國(guó)人"
end sub
代碼二:根據(jù)文本框“編號(hào)”修改內(nèi)容
用法:比上面簡(jiǎn)單,但是你還是要知道“編號(hào)”才可以,先查到“我是誰”文本框在幻燈片中的編號(hào)。--請(qǐng)手動(dòng)試驗(yàn),下面代碼中的shapes(1)是編號(hào)1的文本框。 先放映幻燈片,點(diǎn)擊“我是誰”,如果屏幕上有多個(gè)文本框的話,會(huì)有一個(gè)框的內(nèi)容變成“我是中國(guó)人”,如果變錯(cuò)成其它的文本框了,你就要手動(dòng)改編號(hào)為2,然后再播放繼續(xù)試。
sub a()
activepresentation.slides(1).shapes(1).textframe.textrange.text = "我是中國(guó)人"
end sub
**********************
● 上面寫得太長(zhǎng),總結(jié)一下操作: 選一種段代碼粘貼到宏編輯器中--幻燈片中編幾個(gè)文本框--把其中一個(gè)文本框加上動(dòng)作,鏈接到宏a()上--放映--點(diǎn)擊試驗(yàn)效果,如果變錯(cuò)就修改代碼。
● 如果你要改的鏈接不止一個(gè),那么自己編寫其它宏吧,宏名就用a()、b()、c()這樣。每個(gè)鏈接指向一個(gè)宏。
● 最后最重要一點(diǎn)是:播放時(shí)由于宏的作用,鏈接文字被改成“我是中國(guó)人”,放映完畢你會(huì)發(fā)現(xiàn)幻燈片中的文字也被改成了“我是中國(guó)人”。 所以放映完后,請(qǐng)執(zhí)行一次“編輯”-“撤消”命令,就可以還原所作改動(dòng)。
●我自己本來也不會(huì)做這個(gè)功能,如果不是你短信再次要求的話,我不會(huì)再關(guān)注到這個(gè)話題,也學(xué)不到新東西了。