Visual FoxPro を使用して PowerPoint を自動化する方法

文書翻訳 文書翻訳
文書番号: 230154 - 対象製品
この資料は、アーカイブされました。これは "現状のまま" で提供され、更新されることはありません。
すべて展開する | すべて折りたたむ

概要

ここでは、Visual FoxPro 6. 0 を使用して PowerPoint を自動化する方法について説明します。

詳細

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 - 最終更新日: 2014年2月6日 - リビジョン: 3.4
この資料は以下の製品について記述したものです。
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
キーワード:?
kbnosurvey kbarchive kbhowto kbautomation kbmt KB230154 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:230154
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

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