ppt之VBA中的HeaderFooter对象和HeaderFooters集使用范例
下文所涉及到的VBA代码，均在PPT环境下使用。一、HeaderFooter对象
其功能为：代表幻灯片或母版中的页眉、页脚、日期和时间、幻灯片编号或页码。所有幻灯片或母版的HeaderFooter 对象包含在一个 HeadersFooters 对象中。
通过下面的方法来使用HeaderFooter对象
使用此属性 返回
DateAndTime 代表幻灯片的日期和时间的 HeaderFooter 对象。
Footer 代表幻灯片页脚的 HeaderFooter 对象。
Header 代表幻灯片页眉的 HeaderFooter 对象。仅对备注页和讲义有效，不用于幻灯片。
SlideNumber 代表幻灯片编号（在幻灯片中）或页码（在备注页或讲义中）的 HeaderFooter 对象
注意 HeaderFooter 对象对于代表备注页的 Slide 对象无效。代表页眉的 HeaderFooter 对象仅对备注母版或讲义母版有效。
可以为单张幻灯片设置 HeaderFooter 对象的属性。以下示例设置当前演示文稿中第一张幻灯片的页脚文本。
ActivePresentation.Slides(1).HeadersFooters.Footer.Text = "dzwebs"
也可以将幻灯片母版、标题母版、备注母版或讲义母版的 HeaderFooter 对象的属性设置为同时影响所有幻灯片、标题幻灯片、备注页或讲义及大纲。以下示例设置当前演示文稿幻灯片母版的页脚文本，设置日期和时间的格式，并打开幻灯片编号的显示。这些设置将应用于两类幻灯片：所有基于该母版并显示母版图形的幻灯片，没有页脚及日期和时间的幻灯片。
Set mySlidesHF = ActivePresentation.SlideMaster.HeadersFooters
With mySlidesHF
.Footer.Visible = True
.Footer.Text = "Regional Sales"
.SlideNumber.Visible = True
.DateAndTime.Visible = True
.DateAndTime.UseFormat = True
.DateAndTime.Format = ppDateTimeMdyy
End With
要清除为幻灯片单独设置的页眉和页脚信息，并保证所有幻灯片显示幻灯片母版中定义的页眉和页脚信息，请在运行前面的示例前运行以下代码：
For Each s In ActivePresentation.Slides
s.DisplayMasterShapes = True
s.HeadersFooters.Clear
Next
二、HeadersFooters对象
包含指定幻灯片、备注页、讲义或母版中的所有 HeaderFooter 对象。每个 HeaderFooter 对象代表一个页眉、页脚、日期和时间或幻灯片编号。
注意 HeaderFooter 对象对于代表备注页的 Slide 对象无效。代表页眉的 HeaderFooter 对象仅对备注母版或讲义母版有效。
使用 HeadersFooters 属性返回 HeadersFooters 对象。使用 DateAndTime、Footer、Header 或 SlideNumber 属性返回单个 HeaderFooter 对象。以下代码设置当前演示文稿中第一张幻灯片的页脚文本。
ActivePresentation.Slides(1).HeadersFooters.Footer.Text = "dzwebs"
我卷了~~~~~~~ 不错啊! 一个字牛啊!
页:
[1]