Macro only works 3 times in PPT2003

  • Thread starter Thread starter kimkom
  • Start date Start date
K

kimkom

Hi all,

I've got a weird macro problem in Powerpoint 2003.

I've created the following macro which is applied to a button in a PPS file.
Everything works fine in PPT2007 but it will only work correctly 3 times in
2003.
When pressing the macro actioned button a fourth time nothing happens! It
always works 3 times!

Sub UpdatePrintTables()

Dim oSh As Shape
Dim oTarget_table1 As Table
Dim oTarget_table2 As Table

Set oTarget_table1 =
ActivePresentation.Slides(3).Shapes("PrintTable1").Table
Set oTarget_table2 =
ActivePresentation.Slides(3).Shapes("PrintTable2").Table

For Each oSh In ActivePresentation.Slides(2).Shapes

If oSh.Name = "EditableBox1" Then
oTarget_table1.Cell(1, 2).Shape.TextFrame.TextRange.Text =
TheText(oSh)
oTarget_table2.Cell(1, 2).Shape.TextFrame.TextRange.Text =
TheText(oSh)
End If

If oSh.Name = "EditableBox2" Then
oTarget_table1.Cell(1, 7).Shape.TextFrame.TextRange.Text =
TheText(oSh)
oTarget_table2.Cell(1, 7).Shape.TextFrame.TextRange.Text =
TheText(oSh)
End If

Next

ActivePresentation.SlideShowWindow.View.GotoSlide 3

End Sub

I've tried saving the same PPS from the 2003 of version of Powerpoint with
no effect.

Please help someone!

Thanks,
Michael
 
Yeah, I know this is a strange one...

I've tried applying the macro to a new button with the same results.
Any help or advice on checks to try would be appreciated.

Thanks
Michael
 
Back
Top