Re: VBA - Copying footers
- From: "Sam" <savan_gandhi@xxxxxxxxxxxxxxxx>
- Date: Tue, 19 Aug 2008 11:03:30 +0530
office 2003 SP2
"Shyam Pillai" <ShyamPillai@xxxxxxxxx> wrote in message
news:uVJTBzWAJHA.524@xxxxxxxxxxxxxxxxxxxxxxx
Which version of PPT are you using?
Regards,
Shyam Pillai
Image Importer Wizard
http://skp.mvps.org/iiw.htm
"Sam" <savan_gandhi@xxxxxxxxxxxxxxxx> wrote in message
news:%232sWJ3SAJHA.3648@xxxxxxxxxxxxxxxxxxxxxxx
Hi,
I am copying slides by using code from:
http://skp.mvps.org/pptxp001.htm
However, the footers are not getting copied. So I am doing this additional
processing:
'add Footer
If CBool(sldSource.HeadersFooters.Footer.Visible) Then
With sldInserted.HeadersFooters.Footer
.Visible = msoTrue
.Text =
ppPresSource.Slides(mySlide.SlideIndex).HeadersFooters.Footer.Text
End With
End If
If CBool(sldSource.HeadersFooters.DateAndTime.Visible) Then
sldInserted.HeadersFooters.DateAndTime.Visible = msoTrue
If CBool(sldSource.HeadersFooters.DateAndTime.UseFormat) Then
sldInserted.HeadersFooters.DateAndTime.UseFormat = msoTrue
Else
sldInserted.HeadersFooters.DateAndTime.Text =
ppPresSource.Slides(mySlide.SlideIndex).HeadersFooters.DateAndTime.Text
End If
End If
sldInserted.HeadersFooters.SlideNumber.Visible =
sldSource.HeadersFooters.SlideNumber.Visible
Could anyone please confirm if this is correct? Is it really that we need
to explicitly copy footers?
Regards,
Sam
.
- Follow-Ups:
- Re: VBA - Copying footers
- From: Sam
- Re: VBA - Copying footers
- References:
- VBA - Copying footers
- From: Sam
- Re: VBA - Copying footers
- From: Shyam Pillai
- VBA - Copying footers
- Prev by Date: Re: PPT 2007 VBA - How to have a change to footer in slide master apply to all slides?
- Next by Date: How do you activate the commentaries at the bottom of each page of a presentation
- Previous by thread: Re: VBA - Copying footers
- Next by thread: Re: VBA - Copying footers
- Index(es):
Relevant Pages
|
