Resize Every Table Of my Powerpoint Document

[Monres]

Guys I really need some help. I have tons of tables in a powerpoint document. Some are 2 in x 2 in and some are 3.5 x 3.5 in. I need to resize only the 3.5x3.5 tables to a size of 2.8x2.8
I know this can be done with some easy vba code, but I don't possess the knowledge for it. I know it has to go something like this:
Sub format()

Dim s As Slide
Dim oSh As Shape
Dim oTbl As Table

For Each s In ActivePresentation.Slides
For Each oSh In s.Shapes
If oSh.HasTable Then
Set oTbl = oSh.Table
SOMETHING NEEDS TO GO HERE to check the size of the table and resize only if it is 3.5x3.5
Next
Next
End If
Next ' Shape
Next s
End Sub

 

[Domenic]

Try...

For Each s In ActivePresentation.Slides
    For Each oSh In s.Shapes
        If oSh.HasTable Then
            If oSh.Width = 252 And oSh.Height = 252 Then '252 points = 3.5 in
                With oSh
                    .LockAspectRatio = msoFalse
                    .Width = 201.6  '201.6 points = 2.8 in
                    .Height = 201.6 '201.6 points = 2.8 in
                End With
            End If
        End If
    Next oSh
Next s

Hope this helps!

 

[Monres]

Beautiful! Thank you so much for your help! You are amazing!

 

[Domenic]

You're very welcome, and thanks for the feedback.

Cheers!