PPT 2003, copy slides with VB

  • Thread starter Thread starter rod
  • Start date Start date
R

rod

I am using code to copy slides from one slide kit to another, this
works great but I have noticed that the formatting (bulleted text,
indents) on the notes section is lost. Any ideas?

Here is the code I am using to do the copy.....

Set objPPT = CreateObject("PowerPoint.Application")
Set objDestination = objPPT.Presentations.Add(0)

Set objSource = objPPT.Presentations.Open(strFileName, -1, -1, 0)
Set oSlide = objSource.Slides.Item(slide_number)
oSlide.Copy

With objDestination.Slides.Paste
.Design = objSlide.Design
.ColorScheme = objSlide.ColorScheme
End With





thanks
 
That specific page does not include notes page formatting in it's code. The
approach I recommand is to read the formatting from the source notes page
and apply it to the target page. Look up the information on the Runs
property this will be very useful. If you still fail to get it right. Get
back here.
Take a look at this example which employs runs to locate specific color
formatting: http://www.mvps.org/skp/pptxp006.htm
 
Back
Top