power point VBA , tables

[ziad alsayed]

dear all
i have a power presentation with seven slides, each slide has a title and table, i need to select each table in each slide and put its measurments (width and Height), of course the tables dont have the same measurments
hope you can assist me with a code that select each table in each slide and i will add the measurments.
thanks in advance.

 

[Worf]

a very big thanks for you

You are welcome. This new version will center tables:

Option Explicit
Option Base 1
' this code goes at a PowerPoint module


Sub SizeTables()
Dim TabWid, TabHei, shp As Shape, i%, pres As Presentation


TabWid = Array(400, 300, 200)   ' desired table widths
TabHei = Array(350, 250, 150)   ' desired table heights
Set pres = ActivePresentation
If UBound(TabWid) <> UBound(TabHei) Then Exit Sub


For i = 1 To UBound(TabWid)     ' this example works with 3 slides


    For Each shp In pres.Slides(i).Shapes
    
        If shp.HasTable Then Exit For   ' finds first table
        
    Next
    With shp
        .Width = TabWid(i)
        .Height = TabHei(i)
        .Top = (pres.PageSetup.SlideHeight - .Height) / 2
        .Left = (pres.PageSetup.SlideWidth - .Width) / 2
    End With
Next
End Sub

 

[ziad alsayed]

Dear Worf

this Working perfectly

thanks .

 

[Worf]

You are welcome and thanks for the feedback.