Table tinkerer tool created for three tables iterated across many slides
Sub table_tinkerer_threetabs()
'Table tinkerer tool created for three tables iterated across many slides
'Alt+F11 to start up code module
'Insert New Module >>
'Select Table >> Run
Dim r, i, j, k As Long
'r converts cm to points
r = 28.3464567
ActiveWindow.Selection.ShapeRange(1).Top = 3.8 * r
ActiveWindow.Selection.ShapeRange(2).Top = 8.2 * r
ActiveWindow.Selection.ShapeRange(3).Top = 12.6 * r
For k = 1 To 3
'Make general specifications on table position and size
With ActiveWindow.Selection.ShapeRange(k)
.Left = 11.46 * r 'change the number for desired x position
' .Top = 4.72 * r 'change the number for desired y position
' .Height = 5 * r
' .Width = 12 * r
End With
For i = 1 To 6
With ActiveWindow.Selection.ShapeRange(k)
.Table.Cell(1, i).Shape.TextFrame.TextRange.Font.Bold = msoTrue
End With
Next
ActiveWindow.Selection.ShapeRange(k).Table.Columns(1).Width = 2 * r
ActiveWindow.Selection.ShapeRange(k).Table.Rows(1).Height = 1.8 * r
For i = 2 To 6
ActiveWindow.Selection.ShapeRange(k).Table.Columns(i).Width = 2 * r
For j = 1 To 4
ActiveWindow.Selection.ShapeRange(k).Table.Cell(j, i).Shape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
Next
Next
Next
End Sub