Macro question

[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

 

[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

 

[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/

 

[Guurt]

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

Greetz,
Guurt

 

[David M. Marcovitz]

As you work your way out of it, feel free to post any specific questions
you have.
--David

--
David M. Marcovitz
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Guurt]

Hello David,

I tried to sent you an email but it keeps coming back..?..

??
Guurt

 

[David M. Marcovitz]

Remove the NOSPAM from my email address: (e-mail address removed)
--David

--
David M. Marcovitz
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[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