Thread: Resize-to-fit Table Columns (PowerPoint)
View Single Post
 
Old 06-06-2010, 11:21 AM
icu222much icu222much is offline Windows XP Office 2003
Novice
  
Join Date: Nov 2009
Posts: 3
icu222much is on a distinguished road
Default Resize-to-fit Table Columns (PowerPoint)
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.

Code:
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
Code:
mySlide.Shapes(mySlide.Shapes.Count).Table.Columns(x).Width = ppAutoSizeShapeToFitText
Code:
mySlide.Shapes(mySlide.Shapes.Count).Table.Cell(targetRow, targetColumn).Shape.TextFrame.AutoSize = ppAutoSizeShapeToFitText
Reply With Quote