Try something like this:
However, if you want the table to fit on the slide, that's a tough one! I wrote some code that starts with a large font size, determines if the table fits on the page, and iterates through smaller font sizes until it does. But it doesn't work reliably! Sigh.table.AutoFitBehavior=wdAutoFitContent table.Range.Font.Size=14 table.Save