Como usar a automação para criar e mostrar uma apresentação do PowerPoint 2002 usando o Visual translation from VPE for Csharp .NET 2002

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: 303718
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Para uma versão deste artigo do Microsoft Visual Basic. NET, consulte 303717.
Para uma versão deste artigo do Microsoft Visual C++. NET, consulte 308336.
Sumário
Este artigo descreve como usar automação para criar e mostrar uma apresentação do Microsoft PowerPoint 2002 usando o Microsoft Visual translation from VPE for Csharp .NET 2002.
Mais Informações

Criar um cliente de automação para o PowerPoint 2002

  1. Inicie o Visual Studio .NET 2002. No menu arquivo , clique em novo e, em seguida, clique em Project . Selecione os tipos de projetos translation from VPE for Csharp Visual Windows Application . 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 Add Reference .
    2. Na guia COM , localize a Biblioteca de objetos Microsoft PowerPoint e clique em Selecionar . Também localizar a Biblioteca de objetos Microsoft Graph e clique em Selecionar .

      Observação Microsoft Office XP não inclui PIAs, mas os PIAs 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:
      328912Microsoft Office XP módulos de interoperabilidade primários (PIAs) estão disponíveis para download
    3. Clique em OK na caixa de diálogo Add References 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, substitua o código a seguir
    private void button1_Click(object sender, System.EventArgs e){}					
    com:
    private void button1_Click(object sender, System.EventArgs e){	ShowPresentation();	GC.Collect();} private void ShowPresentation(){	String strTemplate, strPic;	strTemplate = 	  "C:\\Program Files\\Microsoft Office\\Templates\\Presentation Designs\\Blends.pot";	strPic = "C:\\Windows\\Blue Lace 16.bmp";	bool bAssistantOn;	PowerPoint.Application objApp;	PowerPoint.Presentations objPresSet;	PowerPoint._Presentation objPres;	PowerPoint.Slides objSlides;	PowerPoint._Slide objSlide;	PowerPoint.TextRange objTextRng;	PowerPoint.Shapes objShapes;	PowerPoint.Shape objShape;	PowerPoint.SlideShowWindows objSSWs;	PowerPoint.SlideShowTransition objSST;	PowerPoint.SlideShowSettings objSSS;	PowerPoint.SlideRange objSldRng;	Graph.Chart objChart;	//Create a new presentation based on a template.	objApp = new PowerPoint.Application();	objApp.Visible = MsoTriState.msoTrue;	objPresSet = objApp.Presentations;	objPres = objPresSet.Open(strTemplate, 		MsoTriState.msoFalse, MsoTriState.msoTrue, MsoTriState.msoTrue);	objSlides = objPres.Slides;	//Build Slide #1:	//Add text to the slide, change the font and insert/position a 	//picture on the first slide.	objSlide = objSlides.Add(1,PowerPoint.PpSlideLayout.ppLayoutTitleOnly);	objTextRng = objSlide.Shapes[1].TextFrame.TextRange;	objTextRng.Text = "My Sample Presentation";	objTextRng.Font.Name = "Comic Sans MS";	objTextRng.Font.Size = 48;	objSlide.Shapes.AddPicture(strPic, MsoTriState.msoFalse, MsoTriState.msoTrue,		150, 150, 500, 350);	//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.	objSlide = objSlides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly);	objTextRng = objSlide.Shapes[1].TextFrame.TextRange;	objTextRng.Text = "My Chart";	objTextRng.Font.Name = "Comic Sans MS";	objTextRng.Font.Size = 48;	objChart = (Graph.Chart) objSlide.Shapes.AddOLEObject(150,150,480,320,  		"MSGraph.Chart.8", "", MsoTriState.msoFalse, "", 0, "", 		MsoTriState.msoFalse).OLEFormat.Object;	objChart.ChartType = Graph.XlChartType.xl3DPie;	objChart.Legend.Position=Graph.XlLegendPosition.xlLegendPositionBottom;	objChart.HasTitle = true;	objChart.ChartTitle.Text = "Here it is...";	//Build Slide #3:	//Change the background color of this slide only. Add a text effect to the slide	//and apply various color schemes and shadows to the text effect.	objSlide = objSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank);	objSlide.FollowMasterBackground = MsoTriState.msoFalse;	objShapes = objSlide.Shapes;	objShape = objShapes.AddTextEffect(MsoPresetTextEffect.msoTextEffect27,	  "The End", "Impact", 96, MsoTriState.msoFalse, MsoTriState.msoFalse, 230, 200);	//Modify the slide show transition settings for all 3 slides in	//the presentation.	int[] SlideIdx = new int[3];	for(int i=0;i<3;i++) SlideIdx[i]=i+1;	objSldRng = objSlides.Range(SlideIdx);	objSST = objSldRng.SlideShowTransition;	objSST.AdvanceOnTime = MsoTriState.msoTrue;	objSST.AdvanceTime = 3;	objSST.EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut;	//Prevent Office Assistant from displaying alert messages:	bAssistantOn = objApp.Assistant.On;	objApp.Assistant.On = false;	//Run the Slide show from slides 1 thru 3.	objSSS = objPres.SlideShowSettings;	objSSS.StartingSlide = 1;	objSSS.EndingSlide = 3;	objSSS.Run();	//Wait for the slide show to end.	objSSWs = objApp.SlideShowWindows;	while(objSSWs.Count>=1) System.Threading.Thread.Sleep(100);	//Reenable Office Assisant, if it was on:	if(bAssistantOn)	{		objApp.Assistant.On = true;		objApp.Assistant.Visible = false;	}	//Close the presentation without saving changes and quit PowerPoint.	objPres.Close();	objApp.Quit();} 					
    Observação : nesse código, as constantes sTemplate e sPic representam o caminho completo e arquivo o nome 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. Role até o início da janela de código. Adicionar linhas de código a seguir ao final da lista de diretivas usando :
    using Microsoft.Office.Core;using PowerPoint = Microsoft.Office.Interop.PowerPoint;using Graph = Microsoft.Office.Interop.Graph;using System.Runtime.InteropServices;					
  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 site:
Microsoft Office Development com Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
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 utilizando o Visual Basic no Office 2003, no Office XP Developer e no Office 2000 Developer

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 303718 - Última Revisão: 12/06/2015 04:01:13 - Revisão: 8.4

Microsoft Visual C# .NET 2002 Standard Edition, Microsoft PowerPoint 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 2002 Professional Edition

  • kbnosurvey kbarchive kbmt kbautomation kbhowto KB303718 KbMtpt
Comentários