Como utilizar a automatização para criar e mostrar uma apresentação do PowerPoint utilizando o Visual Basic .NET 2002 ou Visual Basic .NET 2003

Traduções de Artigos Traduções de Artigos
Artigo: 303717 - Ver produtos para os quais este artigo se aplica.
Para obter uma Microsoft Visual C# .NET versão deste artigo, consulte 303718.
Para obter uma versão de Microsoft Visual C++ .NET deste artigo, consulte 308336.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo descreve como utilizar a automatização para criar e mostrar uma apresentação do Microsoft PowerPoint utilizando o Microsoft Visual Basic .NET 2002 ou Visual Basic .NET 2003.

Mais Informação

Criar um cliente de automatização do Microsoft PowerPoint

  1. Inicie o Microsoft Visual Studio .NET 2002 ou Visual Studio .NET 2003. No menu ficheiro , clique em Novo e em seguida, clique em projecto . Seleccione Windows Application dos tipos de projectos do Visual Basic. É criado o Form1 por predefinição.
  2. Adicione uma referência para a Biblioteca de objectos do Microsoft PowerPoint e o Microsoft Graph Object Library . Para o fazer, siga estes passos:
    1. No menu projecto , clique em Adicionar referência .
    2. No separador COM , localizar a Biblioteca de objectos do Microsoft PowerPoint e, em seguida, clique em Seleccionar . Localize também o objecto do Microsoft Graph biblioteca e, em seguida, clique em Seleccionar .

      Nota : o Microsoft Office 2003 e versões posteriores do Microsoft Office inclui Primary Interop Assemblies (PIAs). Microsoft Office XP não inclui PIAs, mas pode ser transferidos.

      Para obter mais informações sobre PIAs do Office XP, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
      328912PIAs do Microsoft Office XP estão disponíveis para transferência
    3. Clique em OK no Adicionar referências caixa de diálogo para aceitar as selecções.
  3. No menu Ver , seleccione a caixa de ferramentas para visualizar a caixa de ferramentas dos controlos e adicionar um botão ao Form1.
  4. Faça duplo clique em Button1 . Aparece a janela código para o formulário.
  5. Na janela de código, localize o seguinte código
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
        End Sub
    					
    substituir com o seguinte código:
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
            Const sTemplate = _
               "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot"
            Const sPic = "C:\WINNT\Soap Bubbles.bmp"
    
            Dim oApp As PowerPoint.Application
            Dim oPres As PowerPoint.Presentation
            Dim oSlide As PowerPoint.Slide
            Dim bAssistantOn As Boolean
    
            'Start Powerpoint and make its window visible but minimized.
            oApp = New PowerPoint.Application()
            oApp.Visible = True
            oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
    
            'Create a new presentation based on the specified template.
            oPres = oApp.Presentations.Open(sTemplate, , , True)
    
            'Build Slide #1:
            'Add text to the slide, change the font and insert/position a 
            'picture on the first slide.
            oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = "My Sample Presentation"
                .Font.Name = "Comic Sans MS"
                .Font.Size = 48
            End With
            oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350)
            oSlide = Nothing
    
            'Build Slide #2:
            'Add text to the slide title, format the text. Also add a chart to the
            'slide and change the chart type to a 3D pie chart.
            oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = "My Chart"
                .Font.Name = "Comic Sans MS"
                .Font.Size = 48
            End With
            Dim oChart As Graph.Chart
            oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _
                        "MSGraph.Chart.8").OLEFormat.Object
            oChart.ChartType = Graph.XlChartType.xl3DPie
            oChart = Nothing
            oSlide = Nothing
    
            'Build Slide #3:
            'Add a text effect to the slide and apply shadows to the text effect.
            oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)
            oSlide.FollowMasterBackground = False
            Dim oShape As PowerPoint.Shape
            oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _
                "The End", "Impact", 96, False, False, 230, 200)
            oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground
            oShape.Shadow.Visible = True
            oShape.Shadow.OffsetX = 3
            oShape.Shadow.OffsetY = 3
            oShape = Nothing
            oSlide = Nothing
    
            'Modify the slide show transition settings for all 3 slides in
            'the presentation.
            Dim SlideIdx(3) As Integer
            SlideIdx(0) = 1
            SlideIdx(1) = 2
            SlideIdx(2) = 3
            With oPres.Slides.Range(SlideIdx).SlideShowTransition
                .AdvanceOnTime = True
                .AdvanceTime = 3
                .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut
            End With
            Dim oSettings As PowerPoint.SlideShowSettings
            oSettings = oPres.SlideShowSettings
            oSettings.StartingSlide = 1
            oSettings.EndingSlide = 3
    
            'Prevent Office Assistant from displaying alert messages.
            bAssistantOn = oApp.Assistant.On
            oApp.Assistant.On = False
    
            'Run the slide show and wait for the slide show to end.
            oSettings.Run()
            Do While oApp.SlideShowWindows.Count >= 1
                System.Windows.Forms.Application.DoEvents()
            Loop
            oSettings = Nothing
    
            'Reenable Office Assisant, if it was on.
            If bAssistantOn Then
                oApp.Assistant.On = True
                oApp.Assistant.Visible = False
            End If
    
            'Close the presentation without saving changes and quit PowerPoint.
            oPres.Saved = True
            oPres.Close()
            oPres = Nothing
            oApp.Quit()
            oApp = Nothing
            GC.Collect()
        End Sub
    					
    NOTA: neste código, constantes sTemplate e sPic representam o caminho completo e nome de ficheiro para um PowerPoint modelo e uma imagem, respectivamente. Modifique estas trajectórias conforme necessário para utilizar um modelo ou imagem que está instalada no seu sistema.
  6. Adicione o seguinte código para a parte superior do Form1.VB:
    Imports Office = Microsoft.Office.Core
    Imports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    					
  7. Prima F5 para compilar e executar o programa.
  8. Clique em Button1 no formulário para criar e, em seguida, mostrar PowerPoint um apresentação.

Referências

Para mais informações, consulte o Microsoft Developer seguinte Web site Network (MSDN):
http://msdn2.microsoft.com/en-us/library/aa167948(office.11).aspx
Para obter mais informações sobre a automatização do PowerPoint, clique números de artigo que se seguem para visualizar os artigos na base de dados de conhecimento da Microsoft:
180616Como utilizar MFC para criar e mostrar uma apresentação do PowerPoint
222929Como automatizar o PowerPoint utilizando o Visual Basic

Propriedades

Artigo: 303717 - Última revisão: 31 de maio de 2007 - Revisão: 9.2
A informação contida neste artigo aplica-se a:
  • Microsoft Office PowerPoint 2007
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Studio .NET 2002 Academic Edition
  • Microsoft Visual Studio .NET 2002 Enterprise Architect
  • Microsoft Visual Studio .NET 2002 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Academic Edition
  • Microsoft Visual Studio .NET 2003 Enterprise Architect
  • Microsoft Visual Studio .NET 2003 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Professional Edition
Palavras-chave: 
kbmt kbexpertiseinter kbautomation kbhowto KB303717 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: 303717

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