VFP 愛用者社區

KKKLYNN · 註冊時間: 2004-09-17 文章: 357 第 1 樓

各位好
請問ole powerpoint如何指定檔案與播放
一直找不到相關屬性
以上謝謝

garfield · 發表於: 星期五七月 20, 2007 4:10 pm 文章主題:

ppt 的播放參考 http://support.microsoft.com/kb/306682/zh-tw
另外在 powerpoint 裡錄的巨集請自行修改成vfp可用之語法
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Exit

KKKLYNN · 註冊時間: 2004-09-17 文章: 357 第 3 樓

是想做如圖,也試用您所說的,檔案是開起來,但run失效
不過還是希望能由ole powerpoint來顯示

oPP = Createobject("PowerPoint.Application")
oPP.Visible =.t.
oPresSet = oPP.Presentations
oPres = oPresSet.Open("d:\岳昇\repo.ppt", , ,.t.)
oPP.RUN

打開檔案,卻無法run
以上謝謝
敬請協助

改用pps
就可全螢幕播放(不需要run)
播放完成,還是有powerpoint還存在,需要手動關閉,可否自動去除?
不知可否局限於vfp系統內使用ole powerpoint範圍內來播放(如圖空白處)

garfield · 發表於: 星期一七月 23, 2007 10:34 am 文章主題:

我去錄巨集,
找到它的播放程式碼為
opp.ActivePresentation.SlideShowSettings.Run
結束程式碼為
opp.SlideShowWindows(1).View.Exit

至於放在form裡面的沒用過,
你可以試看看是否可以在執行時期用程式來加入form裡面.

KKKLYNN · 註冊時間: 2004-09-17 文章: 357 第 5 樓

謝謝您
可以播放了(for ppt)
老闆希望能在系統中顯示出ppt
這樣說比較有質感(在為董事簡介時比較爽),大家都用POWERPOINT
所以才會有此需求
再次謝謝您
有關POWERPOINT的控制是不若EXCEL簡單!
我來試試於FORM中播出