Você está offline; aguardando reconexão

Como automatizar o PowerPoint usando o Visual FoxPro

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 230154
Sumário
Este artigo demonstra como automatizar o Microsoft PowerPoint usando o Visual FoxPro 6.0.
Mais Informações
Usando a automação no PowerPoint, você pode programaticamente imprimir, exibir slides e fazer a maioria das coisas que você pode fazer interativamente. Siga estas etapas para criar e executar um exemplo de automação do Visual FoxPro:
  1. Inicie o Visual FoxPro 6.0 e escolha novo... no menu arquivo .
  2. Seleciona o projeto como o tipo de arquivo, clique em novo arquivo e nomeie o projeto PptTest.
  3. No Gerente de projeto para seu projeto, clique em programas na entrada de código na árvore de, clique no botão novo... .
  4. Cole o código a seguir na janela de programa 1:
     * 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. Escolher Arquivo/Salvar ( CTRL+S ) e salve o programa como PptTest.
  6. Execute o programa ( CTRL+E ).

    O exemplo cria um exemplo de apresentação do PowerPoint, executa uma apresentação de slides para 16 segundos e limpa. O código é comentado cuidadosamente para explicar o que faz cada segmento de código.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 230154 - Última Revisão: 01/24/2007 15:47:12 - Revisão: 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 KbMtpt
Comentários
m=document.createElement('meta');m.name='ms.dqp0';m.content='true';document.getElementsByTagName('head')[0].appendChild(m);" onload="var m=document.createElement('meta');m.name='ms.dqp0';m.content='false';document.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?">