powerpoint copy

  • Thread starter Thread starter jaya
  • Start date Start date
J

jaya

Hi,

I am trying to copy slides from one powerpoint to
another using VBA code. It works fine but the slides does
not have titles. I mean when i am in the normal view , on
the left panel i don't see the title and other text. They
are all blank. How do i do that?

the code is as follows:

For x = 1 To sourceslides
'Select the first slide in the presentation and copy it.
loPPTApp.Presentations(lsfilename).Slides.Range(Array
(x)).Select
loPPTApp.ActiveWindow.Selection.Copy
' Switch to destination presentation.
loPPTApp.Presentations(lspptname).Windows(1).Activate
' Create a new slide.
loPPTApp.ActivePresentation.Slides.Add _
loPPTApp.ActivePresentation.Slides.Count + 1,
ppLayoutBlank
' Make sure the new presentation is slide view.
' Switch to the proper slide.
loPPTApp.ActiveWindow.View.GotoSlide
Index:=loPPTApp.ActivePresentation.Slides.Count
' Paste the slide.
loPPTApp.ActiveWindow.View.Paste
....

Next x
 
Jaya,
Slide titles show up in the outline only if the text is entered in the title
placeholder shape.

Regards
Shyam Pillai
 
Back
Top