G
Glyn Jones
why will the following maco stop working when i get to slide 10? slides 1-9
work perfect but as soon as i edit and change to slide 10 and above it stops?
Code working:
ActivePresentation.Slides(9).Shapes("AutoShape 2") _
.TextFrame.TextRange.Text = "X"
ActivePresentation.Slides(9).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Color = vbYellow
ActivePresentation.Slides(9).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Size = 96
SlideShowWindows(1).View.GotoSlide 167
Code NOT working:
ActivePresentation.Slides(10).Shapes("AutoShape 2") _
.TextFrame.TextRange.Text = "X"
ActivePresentation.Slides(10).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Color = vbYellow
ActivePresentation.Slides(10).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Size = 96
SlideShowWindows(1).View.GotoSlide 178
Do i have to do something with the numbering after you get to double figures?
many thanks
Glyn Jones
PS Many thanks to Bill, John & David for getting me this far
work perfect but as soon as i edit and change to slide 10 and above it stops?
Code working:
ActivePresentation.Slides(9).Shapes("AutoShape 2") _
.TextFrame.TextRange.Text = "X"
ActivePresentation.Slides(9).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Color = vbYellow
ActivePresentation.Slides(9).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Size = 96
SlideShowWindows(1).View.GotoSlide 167
Code NOT working:
ActivePresentation.Slides(10).Shapes("AutoShape 2") _
.TextFrame.TextRange.Text = "X"
ActivePresentation.Slides(10).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Color = vbYellow
ActivePresentation.Slides(10).Shapes("AutoShape 2") _
.TextFrame.TextRange.Font.Size = 96
SlideShowWindows(1).View.GotoSlide 178
Do i have to do something with the numbering after you get to double figures?
many thanks
Glyn Jones
PS Many thanks to Bill, John & David for getting me this far