martinctc
10/2/2017 - 3:25 PM

Three Table Tinkerer

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