用幻灯片软件PPT(PowerPoint)做视频封面图

用来制作视频封面图的软件和工具不计其数，但是很多人都不知道，微软公司的幻灯片软件Powerpoint，其实也是一款非常强大的制做视频封面图的工具。在这期节目里，老胡为大家演示了如何使用PPT来制作高清视频封面图，以及如何通过宏导出生成高清图片。简单易学，功能强大，应该能满足绝大多数频道主的基本需求。

把PPT导出成图片：

1. 创建目录： C:\封面图

2. 在PPT中，同时按下 Alt F11 键，在弹窗中点击 插入-->模块，然后把以下脚本拷贝入编辑区。

3. 在PPT中, 点击 视图 -->宏，然后选择宏名 ExportSlides 运行

4. 图片生成保存在：C:\封面图

--------------------------------------

' Where should we put the images and what should we name them:

Const OutputFolder As String = "C:\封面图\"

Const ImageBaseName As String = "封面图-"

' Export dimensions in pixels:

Const ImageWidth As Long = 1920

Const ImageHeight As Long = 1080

' Export format Can be PNG, JPG, BMP, WMF, EMF, TIF

Const ImageType As String = "JPG"

Sub ExportSlides()

    Dim oSl As Slide

    For Each oSl In ActivePresentation.Slides

        oSl.Export OutputFolder & ImageBaseName & Format(oSl.SlideIndex, "000") & "." & ImageType, _

            ImageType, ImageWidth, ImageHeight

    Next     ' slide

End Sub

--------------------------------------