adding a table in notespage in powerpoint 2000

[yanwei]

Hi

I am using powerpoint 2000

I want to add a table in the notes page for a powerpoint presentation.
I want to change the default setting for the table with the following:

- no borders
- font size = 12
- top margin = 0
- bottom margin = 0.05
- text color for the first column = green

Is it possible to do it wihtout using a Do While loop? When I use
loops, my script seem use up lots of memory very quickly.

Can anyone help?

Thanks
Yanwei

 

[yanwei]

Hi

I found the problem with my script, it was lines to do with borders in
the table that was causing me a problem. For example:

..borders(ppBorderBottom).visible = msoFalse

It cause PowerPoint to give the error message:

PowerPoint found an error it can't correct. You should save
presentations, quite, and then restart PowerPoint.

Does anyone know why?
Thanks
Yanwei

 

[yanwei]

Hi Steve

I have tested this using Powerpoint 2000 (win NT4), 2002(win 2000) and
2003(win XP).


this is bits of the code....

With currSlide.NotesPage.Shapes.AddTable(15, 2, 90, 340, 400, 10)
Set currTable = .Table
...
End With

i = 1
j = 1
rowL = currTable.Rows.Count + 1
colL = currTable.Columns.Count + 1

Do While i < rowL
j = 1
Do While j < colL
With currTable.Cell(i, j)
.Borders(ppBorderBottom).Visible = msoFalse
.Borders(ppBorderLeft).Visible = msoFalse
.Borders(ppBorderRight).Visible = msoFalse
.Borders(ppBorderTop).Visible = msoFalse
End With
...
j = j + 1
Loop
i = i + 1
Loop



If I comment out the code with the ".Borders" lines, my script can
finish in otherwise, when memory use goes upto 84MB or above, the
script will cause the "PowerPoint found an error it can't correct."
error. If it's worse, ie not running the debugger, I can't close
powerpoint at all. After the message, when I click on the X it bits
with error, and menu file->exit is greyed out. Or it will just use up
99% of the CPU constantly until I kill powerpoint using task manager.
This is what Powerpoint 2000.

For both 2003 and 2002, I couldn't test it in detail, however, it will
stop at the arbitrary limit in of 84MB but no error is given it just
stops. So it seems.