Dzwebs.Net

撰写电脑技术杂文十余年

发布演示文稿为WEB的VBA代码

Admin | 2012-9-1 6:46:49 | 被阅次数 | 6760

温馨提示!

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

  在Microsoft PowerPoint 中,可以将演示文稿直接发布到 Web 服务器上,并且可以直接在 PowerPoint 中编辑 HTML 文档。下面就是与此相关的文章。

  ①将演示文稿保存为 Web 页

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

  ActivePresentation.SaveAs "D:\myPowerpointfile.htm", ppSaveAsHTMLv3, msoTrue

  ②发布 Web 演示文稿

  发布 Web 演示文稿是一个创建 HTML 格式的演示文稿,并使用 Publish 方法将其保存到 Web 服务器或文件服务器上的过程。此方法与使用 SaveAs 方法将演示文稿保存为 Web 页的不同之处在于:使用此方法可在发布 Web 演示文稿时通过设置不同的属性来自定义演示文稿,并且可以将演示文稿直接发布到 Web 服务器上。

  With ActivePresentation
      With .WebOptions
          .FrameColors = ppFrameColorsWhiteTextOnBlack
          .RelyonVML = True
          .OrganizeInFolder = True
      End With
      With .PublishObjects(1)
          .FileName = "http://这里填写网址/MyPowerPoint1.htm"
          .SourceType = ppPublishAll
          .SpeakerNotes = True
          .Publish
      End With
  End With

  ③Web 选项和默认 Web 选项

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

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

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

  ④在 PowerPoint 中打开 HTML 文档

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

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


该杂文来自: PowerPoint杂文

上一篇:PowerPoint窗体和视图在VBA中的示例

下一篇:在幻灯片中使用ActiveX的编程代码

网站备案号:

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

版权属性:

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

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计