Setting table row heights to minimum
Hi John, and readers
I've spent hours trying different code, and using the VBA editor in PPT, but to no avail.
Basically I have a tool that formats a table to white with grey divider lines, however, I want to drop in code that sets all rows to the minimum height. Code I've ended up with is:
Dim minW As Single
With ActiveWindow.Selection.ShapeRange(1).table
For icol = 1 To .Columns.Count
For irow = 1 To .Rows.Count
With .Cell(irow, icol).Shape.TextFrame
End With
Next
.Rows(irow).Height = 0
Next
End With
Also tried:
Dim otbl As Table
Dim lRow As Long
Dim lCol As Long
Dim oSh As Shape
If oSh.HasTable Then
Set otbl = oSh.table
For lRow = 1 To otbl.Rows.Count
For lCol = 1 To otbl.Columns.Count
oSh.Height = 0
Next
Next
End If
And
Set Shp = ActiveWindow.Selection.ShapeRange(1)
iHeight = Shp.Height
iWidth = Shp.Width
Shp.Height = 0.001 * 72 * lHeight / lWidth
End If
I think this is about the tenth code I've edited a hundred times :banghead:
I didn't repeat the Dim as I have them in the table, and saved repeating here.
Thank you!
