Alternative to 'For i = 1 To .Table.Columns.Count'

padlocked17

Registered User.
Local time
Today, 06:39
Joined
Aug 29, 2007
Messages
275
I am currently using the following to format the cells in a table generated by Access in Powerpoint.

Code:
            With .Slides(index).Shapes(3)
                For i = 1 To .Table.Columns.Count
                    For j = 1 To .Table.Rows.Count
                        '.Table.Cell(j, i).Shape.TextFrame.TextRange.Text = " "
                        .Table.Cell(j, i).Shape.TextFrame.TextRange.Font.Size = 12
                        If j = 1 Then
                            .Table.Cell(j, i).Shape.TextFrame.TextRange.Font.Bold = msoTrue
                        End If
                    Next
                Next

Any suggestions on how to make this process faster? I was thinking a:

Code:
.Table.Rows(x).Select

'Somehow do something with the selection
 

Users who are viewing this thread

Back
Top Bottom