Cell Method Example

This example creates a 3x3 table on a new slide in a new presentation and inserts text into the first cell of the table.

With Presentations.Add
    With .Slides.Add(1, ppLayoutBlank)
        .Shapes.AddTable(3, 3).Select
        .Shapes(1).Table.Cell(1, 1).Shape.TextFrame _
            .TextRange.Text = "Cell 1"
    End With
End With

This example sets the thickness of the bottom border of the cell in row 2, column 1 to two points.

ActivePresentation.Slides(2).Shapes(5).Table _
    .Cell(2, 1).Borders(ppBorderBottom).Weight = 2