powerpoint copy

[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

 

[Shyam Pillai]

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

Regards
Shyam Pillai

 

[Steve Rindsberg, PPTMVP]

You appear to be pasting a slide from the first presentation ONTO another
slide in the target presentation. Try pasting into slide sorter view.

--

Steve Rindsberg PPT MVP
PPTLive ( http://www.pptlive.com ) Featured Speaker
PPTools: http://www.pptools.com
PPT FAQ: http://www.pptfaq.com