Você está offline; aguardando reconexão

Como usar a automação para criar e para mostrar uma apresentação do PowerPoint usando Visual Basic .NET 2002 ou Visual Basic .NET 2003

O suporte para o Office 2003 terminou

A Microsoft terminou o suporte para o Office 2003 em 8 de abril de 2014. Esta alteração afetou as suas atualizações de software e opções de segurança. Saiba o que isto significa para você e como permanecer protegido.

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: 303717
Para obter uma Microsoft Visual translation from VPE for Csharp .NET versão deste artigo, consulte 303718.
Para uma versão deste artigo do Microsoft Visual C++. NET, consulte 308336.
Sumário
Este artigo descreve como usar a automação para criar e mostrar uma apresentação do Microsoft PowerPoint, usando o Microsoft Visual Basic .NET 2002 ou Visual Basic .NET 2003.
Mais Informações

Criar um cliente de automação do Microsoft PowerPoint

  1. Inicie o Microsoft Visual Studio .NET 2002 ou o Visual Studio .NET 2003. No menu arquivo , clique em novo e, em seguida, clique em Project . Selecione Windows Application dos tipos de projetos do Visual Basic. O Form1 é criado por padrão.
  2. Adicione uma referência para a Biblioteca de objetos do Microsoft PowerPoint e a Biblioteca de objetos Microsoft Graph . Para fazer isso, execute as seguintes etapas:
    1. No menu Project , clique em Adicionar referência .
    2. Na guia COM , localize a Biblioteca de objetos do Microsoft PowerPoint e, em seguida, clique em Selecionar . Localizar também a objeto do Microsoft Graph biblioteca e em seguida, clique em Selecionar .

      Observação : o Microsoft Office 2003 e versões posteriores do Microsoft Office inclui assemblies de interoperabilidade primários (PIAs). Microsoft Office XP não inclui PIAs, mas eles podem ser baixados.

      Para obter mais informações sobre PIAs do Office XP, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
      328912PIAs do Microsoft Office XP estão disponíveis para download
    3. Clique em OK na Adicionar referências caixa de diálogo para aceitar as seleções.
  3. No menu Exibir , selecione a caixa de ferramentas para exibir a caixa de ferramentas e adicionar um botão ao Form1.
  4. Clique duas vezes em Button1 . A janela de código para o formulário é exibida.
  5. Na janela código, localize o código a seguir
        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					
    Observação esse código, os sTemplate e sPic constantes representam o caminho completo e nome de arquivo para o PowerPoint um modelo e uma imagem, respectivamente. Modificar esses caminhos conforme necessário para usar um modelo ou imagem que está instalada no seu sistema.
  6. Adicione o seguinte código à parte superior do Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. Pressione F5 para criar e executar o programa.
  8. Clique em Button1 no formulário para criar e, em seguida, mostrar um PowerPoint apresentação.
Referências
Para obter mais informações, consulte o seguinte Microsoft Developer site Network (MSDN): Para obter mais informações sobre automação do PowerPoint, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
180616Como usar MFC para criar e mostrar uma apresentação do PowerPoint
222929Como automatizar o PowerPoint usando o Visual Basic
PPT2007

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 303717 - Última Revisão: 05/31/2007 03:39:24 - Revisão: 9.2

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

  • kbmt kbexpertiseinter kbautomation kbhowto KB303717 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?">