Thank you for the help. It means nothing to me though as I have no idea how to use it. Appreciate the attempt though.
Quote:
Originally Posted by JohnWilson
The only way would be with code. Is this something you might tackle?
This would be a basis:
Code:
Sub chex()
Dim tbl1 As Table
Dim tbl2 As Table
Dim L As Long
For L = 1 To ActivePresentation.Slides(1).Shapes.Count
If ActivePresentation.Slides(1).Shapes(L).HasTable Then
Set tbl1 = ActivePresentation.Slides(1).Shapes(L).Table
Exit For
End If
Next L
For L = 1 To ActivePresentation.Slides(2).Shapes.Count
If ActivePresentation.Slides(2).Shapes(L).HasTable Then
Set tbl2 = ActivePresentation.Slides(2).Shapes(L).Table
Exit For
End If
Next L
For L = 1 To 6
tbl2.Cell(1, L).Shape.TextFrame2.TextRange = tbl1.Cell(1, 6 - L + 1).Shape.TextFrame2.TextRange
Next
End Sub
|