Macro question

G

Guurt

Hello All,

I have a simple macro that goes into edit mode, than copies a text box and
goes into Show mode again. But it starts with slide 1 in show mode. When I
add the line "StartingSlide = 41" the powerpoint is not able to go into
Slide show mode at all anymore...and I have to start over.

Does anyone know what the syntax should be to make the macro return in Show
mode from slide 41?

Here it is:

Sub Macro1()
'
' Macro recorded 31-10-2004 by Guurt'

SlideShowWindows(Index:=1).View.Exit **(this line was manually added
to make it go into edit mode)**
ActiveWindow.View.GotoSlide Index:=39
ActiveWindow.Selection.SlideRange.Shapes("TextBox1").Select
ActiveWindow.Selection.Copy
ActiveWindow.View.GotoSlide Index:=41
ActiveWindow.View.Paste
With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoFalse
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.SchemeColor = ppForeground
.Run
End With

End Sub

Thanx!
Guurt
 
G

Guurt

Hello Steve,

I have an electronic questonaire in PowerPoint 2003. 7 Slides each hold 1
question that is to be answered in an typable text box. Those answers have
to be collected on 1 end slide (for overviewing). To collect the 7 answers
onto this last slide I thought it might work with a macro, but I am open to
any suggestion to make it work ofcourse!

Thanx!
Guurt
 
D

David M. Marcovitz

Check out the Example 7.9 on my Web site:

http://www.loyola.edu/education/PowerfulPowerPoint/

Go to Examples by Chapter and click on Chapter 7. It doesn't use a typable
textbox to collect the information (it uses the InputBox function instead),
but you should be able to use the part of the code that creates the
"printable slide" based on the answers to the questions given on the previous
slide. There is no need to switch into edit mode. The slide can be created
and updated while in Slide Show mode.

--David

David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/
 
G

Guurt

Thanks David (and Steve) it is a bit of a puzzle but I am sure I will work
my way out!

Greetz,
Guurt
 
G

Guurt

Hello David,

Here it is:

Private Sub TextBox1_Change()
Slide3.TextBox1 = Slide1.TextBox1

End Sub

The most simple and elegant solution!!!

Thanx for your efforts!
Guurt
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top