Retaining slide formatting while copying using VBA

[Guest]

I have the following snippet of code.

For i = 1 To oPPS.Slides.Count
With oPPS.Slides(i)
For j = 1 To .Shapes.Count
If .Shapes(j).AlternativeText Like "*MATCH TEXT*" Then
.Copy
aPPS.Slides.Paste
End If
Next j
End With
Next i


It's copying the information I want, but not with the source formatting.
What I want to do is retain the formatting of the oPPS slide in the aPPS
slide. What do I need to do?

Thanks

 

[Shyam Pillai]

Hello Barb,
There is no easy way to do this. You will need to copy the slide and then
apply the formatting too in the code.
Copy slides with source formatting - http://skp.mvps.org/pptxp001.htm. You
can adapt the code from the page above to suit your needs.


--
Regards,
Shyam Pillai

Toolbox
http://skp.mvps.org/toolbox