2024年4月3日发(作者：)

e800，国内最具活力的IT门户网站。

【e800编译】此示例演示了如何在Microsoft PowerPoint 2010演示文稿中将每张

幻灯片导出为一个单独的PPTX文件，以方便在浏览器中查看。

此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这

些将可以直接写入您的代码中。

每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA

或VB以及C＃中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应

注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运

行示例代码。

Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。

Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，

以执行特定功能或者以此为出发点实现更为复杂的功能。

实例代码

事实上PublishSlides方法创建了HTML格式的Web演示文稿，而不仅仅只是每张

幻灯片导出作为一个单独的PPTX文件，这样您就可以在浏览器中查看它们。单独的文件

被命名为PublishSlides_，PublishSlides_，依此类推。后面的数字代

表在演示文稿中的幻灯片的位置。

将下面代码复制到现有的先前保存的PowerPoint演示文稿的一个模块中。修改

PublishSlidesDemo来显示你想要测试的功能部分，按F5键运行，查看你在libraryUrl

中指定的文件夹并找到幻灯片。

e800，国内最具活力的IT门户网站。

Sub PublishSlidesDemo()

' Demonstrate the hSlides method.

' The library URL can either be a file system path, or

' a link to a SharePoint Slide Library. For this demonstration,

' use a local file path.

' Modify this path to meet your own needs:

Const libraryUrl As String = "C:Temp"

' Publish all the slides:

PublishSlideRange libraryUrl, True

' Publish a range of slides:

' PublishSlideRange libraryUrl, True, 2, 5

End Sub

Sub PublishSlideRange(libraryUrl As String, Optional OverWrite As Boolean

= True, _

e800，国内最具活力的IT门户网站。

Optional startSlide As Variant, Optional endSlide As Variant)

If IsMissing(startSlide) And IsMissing(endSlide) Then

' Neither endpoint specified. Use hSlides

hSlides libraryUrl, OverWrite

Else

If IsMissing(startSlide) Then

startSlide = 1

End If

If IsMissing(endSlide) Then

endSlide =

End If

' Make sure the values are in a reasonable range:

If startSlide < 1 Then

e800，国内最具活力的IT门户网站。

startSlide = 1

End If

If endSlide > Then

endSlide =

End If

Dim rng As SlideRange

' Create an array containing a list of all the slides to publish:

ReDim slidesToPublish(1 To (endSlide - startSlide + 1)) As Integer

Dim counter As Integer

counter = 1

Dim i As Integer

For i = startSlide To endSlide

slidesToPublish(counter) = i

e800，国内最具活力的IT门户网站。

counter = counter + 1

Next i

' Given the array of slide numbers, publish the slides:

Set rng = (slidesToPublish)

hSlides libraryUrl, OverWrite

End If

End Sub