How do I move slides?

  • Thread starter Thread starter Kenji
  • Start date Start date
K

Kenji

Currently in Office 2003, I use

activepresentation.slides(1).moveto(5)

but in Office XP, they don't have the "moveto" function. What is a way
around this?

Thanks in advance.

Kenjiro Yagi
 
It's there in my copy of XP/2002. Here is the example from the help, but
your line should work too:

Sub MoveSlideToNewLocation()
ActivePresentation.Slides(2).MoveTo toPos:=1
End Sub

--David

--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/
 
Aha. You are right. In 2000, it is not there. Will something like the
following suffice (it will not work in Slide Show View, and the commented
line is the way to do it in 2002 and 2003 so ignore it):

Sub MoveMe()
'ActivePresentation.Slides(1).MoveTo 5
ActivePresentation.Slides(1).Select
ActiveWindow.Selection.Cut
ActivePresentation.Slides(4).Select
ActiveWindow.View.Paste
End Sub

--David

--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/
 
Hi David,
Thanks for all your help. For my purpose, the user will always be in
Slide Show View, so the solution will not work.

Kenji
 
Back
Top