Resize-to-fit Table Columns

[icu222much]

I have a table in PowerPoint with several rows and columns of data. I would like to resize selected columns so the width of the column does not exceed the width of the longest data - in otherwords make the column width the perfect fit. I am wondering how I would go abouts in doing this?

Below are my various attempts but they have failed as when I went to run my macro, the column widths did not change.

mySlide.Shapes(mySlide.Shapes.Count).Table.Cell(x, y).Shape.TextFrame.WordWrap = msoFalse
mySlide.Shapes(mySlide.Shapes.Count).Table.Cell(x, y).Shape.TextFrame.AutoSize = ppAutoSizeShapeToFitText

mySlide.Shapes(mySlide.Shapes.Count).Table.Columns(1).Width = ppAutoSizeShapeToFitText

mySlide.Shapes(mySlide.Shapes.Count).Table.Cell(targetRow, targetColumn).Shape.TextFrame.AutoSize = ppAutoSizeShapeToFitText