如何在PowerPoint中使用視頻文件的指定片段是在使用PowerPoint制作課件時常遇到的問題。在沒有找到有效控制視頻播放起止位置的方法之前，通常有三種“權(quán)宜之計”：1.使用超級解霸等視頻編輯或分割工具將指定的視頻片段提取出來，將其直接插入到幻燈片中。2.如果是AVI類型的視頻文件，可將其作為“由文件創(chuàng)建”的“對象”插入到幻燈片中，執(zhí)行“視頻剪輯對象”中的“編輯”命令，通過工具欄中的“開始選擇”按鈕和“結(jié)束選擇”按鈕來重新設(shè)置視頻播放的起止位置。3.通過在幻燈片中插入“Windows Media Player”等媒體播放控件來播放整個視頻文件，使用課件時則通過拖動媒體播放控件的滑動塊來“快進(jìn)”到指定片段。
　　縱觀以上三種方法，前兩種方法都對PowerPoint中所用的視頻提出了內(nèi)容或格式上的要求，教師在使用時要具備一定的加工處理視頻信息的能力。第三種方法雖然回避了對視頻素材的加工處理，但在使用課件時要靠手工拖動滑動塊來選擇播放的起始位置，指定的片段播放結(jié)束時還要及時手工停止播放——這在教學(xué)應(yīng)用中無疑是很不方便的。我們能否將其中由教師手工控制的操作交由計算機(jī)自動完成？
　　要解決上述問題，其實是要實現(xiàn)對媒體播放控件播放狀態(tài)的控制。下面以使用“Windows Media Player”控件來播放視頻文件“sample.wmv”第60秒至第600秒之間的片斷為例來說明控制的細(xì)節(jié)。第一步，將控件要播放的視頻文件設(shè)為“sample.wmv”，第二步，將控件播放視頻的當(dāng)前位置設(shè)在第60秒處，第三步，控件開始播放視頻，第四步，當(dāng)控件播放視頻的當(dāng)前位置超過第600秒處時，暫停播放視頻。
　　事實上，前三步在VBA編程中只要用對應(yīng)的三條語句就能實現(xiàn)（“Windows Media Player”控件使用默認(rèn)名WindowsMediaPlayer1）：
　　WindowsMediaPlayer1.url=“sample.wmv”
　　WindowsMediaPlayer1.Controls.currentPosition = 60
　　WindowsMediaPlayer1.Controls.play
　　第四步的實現(xiàn)則需要實時判斷控件播放視頻的當(dāng)前位置，這對沒有定時器（Timer）控件的VBA而言是難以實現(xiàn)的。但是Win32API中的設(shè)置定時器函數(shù)SetTimer( )與撤銷定時器函數(shù)KillTimer( )可以彌補(bǔ)這一缺陷。通過語句“TimeID = SetTime