PowerPoint VBA教程:发布 Web 演示文稿

在 Microsoft PowerPoint 中,可以将演示文稿直接发布到 Web 服务器上,并且可以直接在 PowerPoint 中编辑 HTML 文档。

将演示文稿保存为 Web 页

将演示文稿保存为 Web 页是一个创建并保存 HTML 格式的演示文稿的过程。若要完成此操作,请使用SaveAs方法。以下示例将当前演示文稿保存为 c:\myfile.htm。


ActivePresentation.SaveAs "c:\myfile.htm", ppSaveAsHTMLv3, msoTrue

发布 Web 演示文稿

发布 Web 演示文稿是一个创建 HTML 格式的演示文稿,并使用Publish方法将其保存到 Web 服务器或文件服务器上的过程。此方法与使用 SaveAs方法将演示文稿保存为 Web 页的不同之处在于:使用此方法可在发布 Web 演示文稿时通过设置不同的属性来自定义演示文稿,并且可以将演示文稿直接发布到 Web 服务器上。在本示例中,设置WebOptions对象的不同属性之后,将当前演示文稿发布到 URL 地址为 http://www.someones.homepage/mallard.htm 的 Web 服务器上。


With ActivePresentation
    With .WebOptions
        .FrameColors = ppFrameColorsWhiteTextOnBlack
        .RelyonVML = True
        .OrganizeInFolder = True
    End With
    With .PublishObjects(1)
        .FileName = "http://www.someones.homepage/mallard.htm"
        .SourceType = ppPublishAll
        .SpeakerNotes = True
        .Publish
    End With
End With

Web 选项和默认 Web 选项

使用 Publish方法时,可以通过设置DefaultWebOptions对象和WebOptions对象的属性自定义 HTML 文档的外观、内容、浏览器支持、编辑支持、图形格式、屏幕分辨率、文件组织和编码。DefaultWebOptions对象包含应用程序级的属性。而这些设置将被包含在 WebOptions对象中演示文稿级的同名属性设置所覆盖。

本示例为 Web 发布设置各种应用程序级的属性。而这些设置将作为任何当前或以后加载的演示文稿的默认设置,直到它们被再次更改。接着,后面的代码将重新设置当前演示文稿的ResizeGraphics属性,以覆盖应用程序级的默认设置。本示例将当前演示文稿发布为“c:\mallard.htm”。


With Application.DefaultWebOptions
    .FrameColors = ppFrameColorsWhiteTextOnBlack
    .IncludeNavigation = False
    .ResizeGraphics = True
End With
With ActivePresentation
    .WebOptions.ResizeGraphics = False
    With .PublishObjects(1)
        .FileName = "c:\mallard.htm"
        .SourceType = ppPublishAll
        .SpeakerNotes = True
        .Publish
    End With
End With

在 PowerPoint 中打开 HTML 文档

若要在 PowerPoint 中编辑 HTML 文档,请使用Open方法打开该 HTML 文档。本示例打开名为“myfile.htm”的文件以用于编辑。


Presentations.Open Filename:="c:\Windows\myfile.htm"

上页:PowerPoint VBA教程:初始化控件属性 下页:PowerPoint VBA教程:返回集合中的对象

PowerPoint VBA教程:发布 Web 演示文稿

PowerPoint VBA教程:返回集合中的对象 PowerPoint VBA教程:在代码运行时使用控件值
PowerPoint VBA教程:设置控件属性 PowerPoint VBA教程:在幻灯片中使用 ActiveX 控件
PowerPoint VBA教程:使用 Application对象的事件 PowerPoint VBA教程:在文档中使用 ActiveX 控件
PowerPoint VBA教程:使用形状(绘图对象) PowerPoint VBA教程:使用窗格和视图
PowerPoint VBA教程:使用表格 PowerPoint VBA教程:与语言相关的属性和方法
PowerPoint VBA教程:新的事件 PowerPoint VBA教程:新的方法(按字母顺序)
PowerPoint VBA教程:新的方法(按对象排序) PowerPoint VBA教程:新的对象
PowerPoint VBA教程:新的属性(按字母顺序) PowerPoint VBA教程:新的属性(按对象排序)
PowerPoint VBA教程:OLE 程序标识符 PowerPoint VBA教程:为 Microsoft PowerPoint 2002 开发人员新增的内容
PowerPoint VBA教程:Activate方法 PowerPoint VBA教程:Add方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号