Visual FoxPro 사용하여 PowerPoint 자동화하는 방법

기술 자료: 230154 - 이 문서가 적용되는 제품 보기.

기계 번역 고지 사항 보기

기계 번역된 문서와 영문 원본 문서 나란히 보기

모두 확대 | 모두 축소

요약

이 문서에서는 Microsoft Visual FoxPro 6.0이 사용하여 PowerPoint 자동화하는 방법을 보여 줍니다.

추가 정보

PowerPoint에서 자동화를 사용하여 프로그래밍 방식으로 인쇄, 슬라이드를 표시하고 수 대화형으로 수행할 수 있는 작업 대부분을 수행할. 빌드하고 Visual FoxPro 자동화 예제를 실행하려면 다음과 같이 하십시오.

Visual FoxPro 6.0이 시작한 다음 파일 메뉴에서 새로 만들기... 을 선택하십시오.
프로젝트 파일 유형으로 선택하고 새 파일, 누른 PptTest 프로젝트 이름을.
프로젝트의 프로젝트 관리자, 프로그램코드 항목에 트리에서 다음 [새로 만들기...] 단추를 클릭하십시오.

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

PptTest 같이 프로그램을 저장하고 파일/저장 (Ctrl + S 를)을 선택하십시오.
(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 KbMtko

기계 번역된 문서

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

이 문서의 영문 버전 보기.