Powerpoint

Sub test()

    Dim np As Integer

    Dim otable As Table

    With ActivePresentation

    For i = 1 To 5

        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 <> 20.16 Then

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

                    .Slides(i).Shapes(j).Left = 396

                End If

                .Slides(i).Shapes(j).Height = 364.3191

                .Slides(i).Shapes(j).Width = 364.4476

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

                For m = 1 To otable.Rows.Count

                    For n = 1 To otable.Columns.Count

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

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

                             otable.Cell(m, n).Shape.TextFrame2.TextRange.ParagraphFormat.Alignment = ppAlignRight

                    Next n

                Next m

            End If

        Next j

        np = 1

    Next i

    End With

End Sub