Powerpoint

Sub test()

    Dim np As Integer

    Dim otable As Table

    With ActivePresentation

    For i = 11 To 56

        For j = 1 To .Slides(i).Shapes.Count

            If .Slides(i).Shapes(j).HasTable Then

                'Debug.Print i & " - " & j & " - " & .Slides(i).Shapes(j).Left

                'Debug.Print i & " - " & j & " - " & .Slides(i).Shapes(j).Top

                '.Slides(i).Shapes(j).Top = 121.68

                'If .Slides(i).Shapes(j).Left <> 396 Then

                '    .Slides(i).Shapes(j).Left = 20.16

                'End If

                Set otable = .Slides(i).Shapes(j).Table

                For m = 1 To otable.Rows.Count

                    For n = 1 To otable.Columns.Count

                        If otable.Cell(m, n).Shape.TextFrame.TextRange.Font.Size <> 8 Then

                            'Debug.Print otable.Cell(m, n).Shape.TextFrame.TextRange.Font.Size

                             otable.Cell(m, n).Shape.TextFrame.TextRange.Font.Size = 8

                        End If

                    Next n

                Next m

            End If

        Next j

        np = 1

    Next i

    End With

End Sub