做一個“文本”,自定義動畫中設置成“該文本在點擊鼠標后自動出現”
用vba(宏)很容易實現你的功能,但99%的office用戶都不習慣用宏功能。
****************************
補充內容:
某人解答的“觸發器”,是適合多數人的辦法。
想要操作簡便,請看下面
用宏實現你要的功能“改變文字”(不是“覆蓋法”),經過一中午的試驗,代碼已經調試成功,方法:
第一步:工具-宏-visualbasic編輯器,在左邊的“工程”列表中雙擊“模塊1”,右邊顯示出代碼窗口。 復制下方的代碼(2種代碼自選一種)到代碼窗內。
第二步:切換到幻燈片編輯窗口,在幻燈片1中編排幾個文本框,第1個文本框的內容是“我是誰”,單擊“我是誰”,然后在出現的文本邊框線上右鍵單擊-彈出菜單-動作設置-在“單擊鼠標”欄目中選“運行宏”-在列表中選“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()這樣。每個鏈接指向一個宏。
● 最后最重要一點是:播放時由于宏的作用,鏈接文字被改成“我是中國人”,放映完畢你會發現幻燈片中的文字也被改成了“我是中國人”。 所以放映完后,請執行一次“編輯”-“撤消”命令,就可以還原所作改動。
●我自己本來也不會做這個功能,如果不是你短信再次要求的話,我不會再關注到這個話題,也學不到新東西了。