您目前已離線,請等候您的網際網路重新連線

如何自動化 PowerPoint 使用 Visual FoxPro

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

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 - 最後檢閱時間:01/24/2007 15:47:12 - 修訂: 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
意見反應