Copy table format

[efilipe]

Hi All!



I have a huge problem, that is tables with different formatting on my presentation. I want to choose one of them to be a reference to the others and update all tables from the presentation automactly. That means having all tables with the same width, columns with the same width, same background, text colors, etc.

I found a macro for that but I dont think it works on 2007.


Regards

[efilipe]

Table Format Copy

Select a table that you have formatted exactly how you like it, run this and all other tables in the presentation will copy the format. Note the format of the first cell is used to set the overall format. If cells in a table have different formats they will all be set to the format of the first cell.

Sub tabufix()
Dim otbl As Table, osld As Slide, IRow As Integer, ICol As Integer
On Error GoTo errhandler
If ActiveWindow.Selection.ShapeRange.Count <> 1 Then GoTo errhandler
If ActiveWindow.Selection.ShapeRange.Type <> msoTable Then
MsgBox "You haven't selected a table"
Exit Sub
End If
Set otbl = ActiveWindow.Selection.ShapeRange.Table
With otbl
.Cell(1, 1).Shape.PickUp
End With
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoTable Then
For IRow = 1 To oshp.Table.Rows.Count
For ICol = 1 To oshp.Table.Columns.Count
oshp.Table.Cell(IRow, ICol).Shape.Apply
Next ICol
Next IRow
End If
Next oshp
Next osld
Exit Sub
errhandler:
MsgBox "Error, Did you select just one thing?"
End Sub

[efilipe]

Not working though

[JohnWilson]

Usually good manners to post a LINK to other peoples code or at least add a reference to where it came from.

In any case that code is for pre 2007. There's no simple way to do this with the new style tables in 2007 onwards. You would need to copy each attribute eg fill, border, text size etc and apply it to the new tables UNLESS you want the new tables to take on one of the existing Microsoft styles when it is a lot easier.