Dzwebs.Net

撰写电脑技术杂文十余年

ppt之VBA中的HeaderFooter对象和HeaderFooters集使用范例

Admin | 2013-6-3 7:12:19 | 被阅次数 | 7712

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  下文所涉及到的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"


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231