В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Автоматизация PowerPoint с помощью Visual FoxPro как

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке: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 — последний просмотр: 10/06/2011 03:25:00 — редакция: 4.0

Microsoft Visual FoxPro 6.0 Professional Edition, Microsoft PowerPoint 2002 Standard Edition, Microsoft PowerPoint 2000 Standard Edition, Microsoft PowerPoint 97 Standard Edition

  • kbautomation kbhowto kbmt KB230154 KbMtru
Отзывы и предложения