在Powerpoint 2007中插入此flash并在全屏時實時顯示或者其它:
1 在幻燈片中嵌入.swf 格式Flash 動畫
1.1 在功能區(qū)顯示開發(fā)工具
(1)單擊″Microsoft Office 按鈕″,然后單擊″PowerPoint 選項″;(2)單擊″常用″, 然后在″PowerPoint 首選使用選項″下,選中″在功能區(qū)顯示' 開發(fā)工具' 選項卡″復選框,單擊″確定″。
1.2 在計算機上注冊Shockwave Flash Object
必須在計算機上注冊Shockwave Flash Object 才能夠在演示文稿中播放Flash 文件。若要查看Shockwave Flash Object 是否已注冊,請在″開發(fā)工具″選項卡上的″控件″組中,單擊″其他控件″。如果Shockwave Flash Object顯示在控件列表中,則表示它已在計算機上注冊。如果尚未注冊,則請
從Adobe 網(wǎng)站上下載最新版本的Flash Player, 以便在計算機上注冊Shockwave Flash Object。
1.3 使用Shockwave Flash Object 的ActiveX 控件在幻燈片中添加.swf格式Flash動畫
(1)打開或新建演示文稿,選擇欲添加滾動文本框的幻燈片;
(2)在″開發(fā)工具″選項卡上的″控件″組中,單擊″其他控件″;
(3)在控件列表中,單擊″Shockwave
Flash 對象″并單擊″確定″,然后在幻燈片上拖動以繪制控件;
(4)通過拖動尺寸控點調整控件大小;
(5)右鍵單擊Shockwave
FlashObject,然后單擊″屬性″;
(6)在″按字母順序″選項卡上單擊名稱屬性,在其右側單元格中輸入名稱,本文使用缺省的ShockwaveFlash1;
(7)在″按字母順序″選項卡上單擊Movie 屬性;
(8)在值列(″Movie″旁邊的空白單元格)中,鍵入要播放的
Flash 文件的完整驅動器路徑,包括文件名(例如D\ 我的
Flash 作品\ 小池.swf),或鍵入其統(tǒng)一資源定位器(URL);
(9)若要設置有關如何播放動畫的特定選項,請執(zhí)行以下操作,然后關閉″屬性″對話框:
①若要在顯示幻燈片時自動播放文件,則請將Playing 屬性設置為True。如果Flash 文件內置有″開始/倒帶″控件,則可將Playing 屬性設置為False(本文推薦設置);
②如果不希望重復播放動畫,則請將Loop屬性設置為False;
③若要嵌入Flash文件以便與其他人共享演示文稿,請將EmbedMovie 屬性設置為True。(要運行Flash 文件,必須在任何運行該演示文稿的計算機上注冊Shockwave Flash Object 控件);
(10)在″幻燈片放映″視圖中預覽動畫:
①在″視圖″選項卡的″演示文稿視圖″組中,單擊″幻燈片放映″或按F5;
②若要退出幻燈片放映并返回到″普通″視圖,請按ESC。
2 在PowerPoinpt 中使用Actives 控件控制Flash動畫播放
若要實現(xiàn)手動操作flash播放,則進行以下操作,否則以下操作不必要。
2.1 在幻燈片中添加″播放″“暫?!薄ⅰ扒斑M”、“后退”、“返回”、“結束”命令按鈕
(1)激活″開發(fā)工具″選項卡;在控制功能組中點選″命令按鈕″,然后在屏幕中拖畫出按鈕顯示區(qū)域,調整命令按鈕大小到合 適尺寸;(2)在右鍵菜單屬性面板中按如下提示設置:①在″名稱″單元格的值列中輸入cmd_play;②在″Caption″單元格值列中輸入″播放″ ;③關閉屬性面板;(3)雙擊按鈕,進入VBA 編輯窗口,輸入如下內容:
Private Sub cmd_play_Click()
ShockwaveFlash1.Playing=True
End Sub
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing=False
End Sub
Private Sub cmd_forward_Click()
ShockwaveFlash1.FrameNum = Shockwave-
Flash1.FrameNum+30
ShockwaveFlash1.Playing=True
End Sub
Private Sub cmd_back_Click
ShockwaveFlash1.FrameNum =Shockwave-
Flash1.FrameNum- 30
ShockwaveFlash1.Playing=True
End Sub
Private Sub cmd_start_Click()
ShockwaveFlash1.FrameNum= 1
ShockwaveFlash1.Playing=True
End Sub
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = Shockwave-
Flash1.TotalFrames
End Sub
(4)關閉VBA 編輯窗口。
2.2 宏安全性設置
(1)激活″開發(fā)工具″選項卡;(2)點擊″代碼″功能組中的″宏安全性″按鈕;(3)將宏安全設置為最低。
3 瀏覽、保存演示文稿
(1)放映演示文稿,分別點擊各命令按鈕對Flash 動畫播放進行控制;(2) 單擊″Microsoft Office 按鈕″,單擊″保存″;(3)在出現(xiàn)的″另保存″對話框中,根據(jù)提示,將演示文稿保存為″啟
用宏的PowerPoint 演示文稿(W.pptm)。