如何自動化 PowerPoint 使用 Visual FoxPro

文章翻譯 文章翻譯
文章編號: 230154 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

結論

本文將告訴您,如何自動化 Microsoft PowerPoint 使用 Visual FoxPro 6.0。

其他相關資訊

使用自動化在 PowerPoint 中,您可以程式設計的方式列印、 顯示投影片,執行大部份的事項,您可以以互動方式執行。請依照下列步驟執行以建置並執行 Visual FoxPro 自動化範例:
  1. 啟動 Visual FoxPro 6.0,然後從 [檔案] 功能表中選擇 [新增...]。
  2. 為檔案類型選取 專案],按一下 新的檔案,並 PptTest 專案名稱]。
  3. 在 [專案管理人員 為您的專案,樹狀目錄中的 程式碼 項目之下按一下 [程式集],然後按一下 [新增...] 按鈕]。
  4. 下列程式碼貼入 Program1 視窗:
     * Start PowerPoint
       PptApp = CreateObject("Powerpoint.Application")
    	
     * Add a presentation
       PptPres = PptApp.Presentations.Add(1)
    
     * Add a slide	
       PptSlide1 = PptPres.Slides.Add(1,2)
    	
     * Add some text...
       PptSlide1.Shapes(1).TextFrame.TextRange.Text = "My first slide"
       PptSlide1.Shapes(2).TextFrame.TextRange.Text = "Automating Powerpoint is easy" + Chr(13) + "Using FoxPro is fun!"
    	
     * Add another slide, with a chart
       PptSlide2 = PptPres.Slides.Add(2,5)
    
     * Add some text
       PptSlide2.Shapes(1).TextFrame.TextRange.Text = "Slide 2's topic"
       PptSlide2.Shapes(1).TextFrame.TextRange.Text = "You can create and use charts in your Powerpoint slides!"
    
     * Add a chart where the old one is...
       With PptSlide2.Shapes(3)
          cTop = .Top
          cWidth = .Width
          cHeight = .Height
          cLeft = .Left
          .Delete
       EndWith
    	
       PptSlide2.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "MSGraph.Chart")
    
     * Add another slide, with an Organization chart
       PptSlide3 = PptPres.Slides.Add(3,7)
    	
     * Add some text
       PptSlide3.Shapes(1).TextFrame.TextRange.Text = "The rest is only limited by your Imagination"
    
     * Add an Org chart where old one is...
       With PptSlide3.Shapes(2)
          cTop = .Top
          cWidth = .Width
          cHeight = .Height
          cLeft = .Left
          .Delete
       EndWith
    	
        &&  PptSlide3.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4")
        &&  Uncomment the above line if you have the correct file.
    
    
     * Setup slide show properties...
       With PptPres.Slides.Range.SlideShowTransition
          .EntryEffect = 513
          .AdvanceOnTime = 1
          .AdvanceTime = 5
       EndWith
    
     * Prepare and run slide-show!
       With PptPres.SlideShowSettings
          .ShowType = 3
          .LoopUntilStopped = 1
          .RangeType = 1
          .AdvanceMode = 2
          .Run
       EndWith
    
     * Sleep so user can watch the show...
       Wait window "Waiting for slide show to finish..." TIMEOUT 16
    
     * Stop the slide show
       PptPres.SlideShowWindow.View.Exit
    
     * Clean up
       PptApp.Quit
       Release PptSlide3
       Release PptSlide2
       Release PptSlide1
       Release PptPres
       Release PptApp
    
    					
  5. 選擇 [檔案/另存 (CTRL + S 鍵),並將程式存成 PptTest。
  6. 執行程式 (CTRL + E)。

    此範例會建立範例 PowerPoint 簡報、 16 秒播放投影片放映然後清除。程式碼仔細是註解來解釋每個程式碼區段會有什麼效果。

屬性

文章編號: 230154 - 上次校閱: 2007年1月24日 - 版次: 3.4
這篇文章中的資訊適用於:
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
關鍵字:?
kbmt kbautomation kbhowto KB230154 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:230154
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com