Como automatizar o PowerPoint utilizando o Visual FoxPro

Traduções de Artigos Traduções de Artigos
Artigo: 230154 - Ver produtos para os quais este artigo se aplica.
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Expandir tudo | Reduzir tudo

Sumário

Este artigo demonstra como automatizar o Microsoft PowerPoint utilizando o Visual FoxPro 6.0.

Mais Informação

Utilizando a automatização no PowerPoint, pode programaticamente imprimir, mostrar diapositivos e efectuar a maior das coisas que pode fazer interactivamente. Siga estes passos para criar e executar um exemplo de automatização do Visual FoxPro:
  1. Inicie o Visual FoxPro 6.0 e escolha ' novo... ' no menu ficheiro .
  2. Seleccione o projecto como tipo de ficheiro, clique em novo ficheiro e atribua o projecto PptTest.
  3. No Gestor do projecto para o projecto, clique em programas na entrada de código na árvore e clique no botão novo... .
  4. Cole o seguinte código para a janela 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. Escolher Ficheiro/guardar ( CTRL+S ) e guarde o programa como PptTest.
  6. Execute o programa ( CTRL+E ).

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

Propriedades

Artigo: 230154 - Última revisão: 7 de fevereiro de 2014 - Revisão: 3.4
A informação contida neste artigo aplica-se a:
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
Palavras-chave: 
kbnosurvey kbarchive kbmt kbautomation kbhowto KB230154 KbMtpt
Tradução automática
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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 230154

Submeter comentários

 

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