In Microsoft Office PowerPoint, you can create native tables without having to import them from Microsoft Office Word. Tables are members of the collection. Each cell, column, and row in a table is a separate programmable object.

Creating a Table

To create a table on a slide, use the method. This method adds a table to the Shapes collection with the number of rows and columns designated by the NumRows and NumColumns arguments. This example adds a table with three rows and four columns to slide two. 

ActivePresentation.Slides(2).Shapes _ .AddTable NumRows:=3, NumColumns:=4, Left:=10, _ Top:=10, Width:=288, Height:=288

Testing to See Whether a Shape Is a Table

Before you can work with the contents or objects in a table, you must first know if the shape you are working with is a table. To see whether a shape is a table, use the property. For example, assume that slide one has numerous shapes and you know one of them is a table. You want to resize this table so that it is the proper size to accept the data you are going to import from another source. This code walks through the Shapes collection on slide two to find the table and then it resizes the width of the columns. 

With ActivePresentation.Slides(2) For sh = 1 To .Shapes.Count If .Shapes(sh).HasTable Then For Each col In .Shapes(sh).Table.Columns col.Width = 110 Next col End If Next End With

Working with Cells, Columns, and Rows

To return the contents and properties of an individual column or row, use a specific member of either the or the collection. The method returns a single object within a . This example changes various attributes of the table represented by shape five on slide two. It changes the color of row two, the width of column one, and the text contained in the row two, column one cell. 

With ActivePresentation.Slides(2).Shapes(4).Table For Each cl In .Rows(2).Cells cl.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0) Next cl .Columns(1).Width = 110 .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Mallard" End With