Criando Tabelas Usando VSTO e Aspose.Slides para .NET

Criando Tabelas

Exemplo VSTO 2008

Os passos a seguir adicionam uma tabela a um slide do Microsoft PowerPoint usando VSTO:

  1. Crie uma apresentação.
  2. Adicione um slide vazio à apresentação.
  3. Adicione uma tabela 15 x 15 ao slide.
  4. Adicione texto a cada célula da tabela com tamanho de fonte 10.
  5. Salve a apresentação no disco.
//Criar uma apresentação
PowerPoint.Presentation pres = Globals.ThisAddIn.Application
              .Presentations.Add(Microsoft.Office.Core.MsoTriState.msoFalse);
//Adicionar um slide em branco
PowerPoint.Slide sld = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank);

//Adicionar uma tabela 15 x 15
PowerPoint.Shape shp = sld.Shapes.AddTable(15, 15, 10, 10, pres.PageSetup.SlideWidth - 20, 300);
PowerPoint.Table tbl = shp.Table;
int i = -1;
int j = -1;

//Percorrer todas as linhas
foreach (PowerPoint.Row row in tbl.Rows)
{
    i = i + 1;
    j = -1;

    //Percorrer todas as células na linha
    foreach (PowerPoint.Cell cell in row.Cells)
    {
        j = j + 1;
        //Obter a moldura de texto de cada célula
        PowerPoint.TextFrame tf = cell.Shape.TextFrame;
        //Adicionar algum texto
        tf.TextRange.Text = "T" + i.ToString() + j.ToString();
        //Definir o tamanho da fonte do texto como 10
        tf.TextRange.Paragraphs(0, tf.TextRange.Text.Length).Font.Size = 10;
    }
}

//Salvar a apresentação no disco
pres.SaveAs("d:\\tblVSTO.ppt",
      PowerPoint.PpSaveAsFileType.ppSaveAsPresentation,
      Microsoft.Office.Core.MsoTriState.msoFalse);

Exemplo Aspose.Slides for .NET

Os passos a seguir adicionam uma tabela a um slide do Microsoft PowerPoint usando Aspose.Slides:

  1. Crie uma apresentação.
  2. Adicione uma tabela 15 x 15 ao primeiro slide.
  3. Adicione texto a cada célula da tabela com tamanho de fonte 10.
  4. Grave a apresentação no disco.
Presentation pres = new Presentation();

//Acessar o primeiro slide
ISlide sld = pres.Slides[0];

//Definir colunas com larguras e linhas com alturas
double[] dblCols = { 50, 50, 50 };
double[] dblRows = { 50, 30, 30, 30, 30 };

//Adicionar uma tabela
Aspose.Slides.ITable tbl = sld.Shapes.AddTable(50, 50, dblCols, dblRows);

//Definir formato de borda para cada célula
foreach (IRow row in tbl.Rows)
{
	foreach (ICell cell in row)
	{

		//Obter a moldura de texto de cada célula
		ITextFrame tf = cell.TextFrame;
		//Adicionar algum texto
		tf.Text = "T" + cell.FirstRowIndex.ToString() + cell.FirstColumnIndex.ToString();
		//Definir tamanho da fonte como 10
		tf.Paragraphs[0].Portions[0].PortionFormat.FontHeight = 10;
		tf.Paragraphs[0].ParagraphFormat.Bullet.Type = BulletType.None;
	}
}

//Gravar a apresentação no disco
pres.Save("C:\\data\\tblSLD.ppt", SaveFormat.Ppt);