e800，国内最具活力的 IT 门户网站。http:/www.e800.com.cn 【e800 编译】此示例演示在 Microsoft PowerPoint 2010 演示文稿中如何重新取样以及 重新设置视频的分辨率。 此代码段是 Office 2010 的 101 项 VBA 代码示例中的一部分。与其它示例一样，这些将 可以直接写入您的代码中。 每块示例代码包含约 5 至 50 行的代码，分别演示了一个独特的功能或功能集，在 VBA 或 VB 以及 C中（在 Visual Studio 2010 中创建） 。每个示例之中都会包含代码以及相应注 释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行 示例代码。 Microsoft Office 2010 提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能 或者以此为出发点实现更为复杂的功能。 实例代码 将此代码复制到在新演示文稿的一个模块。在第一张幻灯片里添加视频（在“插入” 选项卡中选择“视频” ，找到视频目录） 。播放视频，确保一切正常，然后将光标放置在下 面进程中，单步执行代码。SubSub ResampleDemo() This code works through every shape on the first slide in the presentation, and for each video it finds, resamples the video to 240x320. If the resampling succeeds, the code resizes the video shape to match the new resolution.DimDim shp AsAs ShapeForFor EachEach shp InIn ActivePresentation.Slides(1).Shapes Is it a media shape?IfIf shp.Type = msoMedia ThenThenDebug.Print “Media Element: “ & shp.NameDimDim newWidth AsAs IntegerIntegerDimDim newHeight AsAs IntegerIntegernewHeight = 240newWidth = 320e800，国内最具活力的 IT 门户网站。http:/www.e800.com.cn You can specify other parameters, as well, indicating the video frame rate, the audio sampling rate, and the video bit rate. For now, just resample and reset the resolution-the lower the resolution, the smaller the video content.shp.MediaFormat.Resample TrueTrue, newHeight, newWidthDoDoDoEventsPause 1Debug.Print “Resample status: “ & shp.MediaFormat.ResamplingStatusLoopLoop WhileWhile shp.MediaFormat.ResamplingStatus = ppMediaTaskStatusInProgressDebug.Print “Resample status: “ & shp.MediaFormat.ResamplingStatusIfIf shp.MediaFormat.ResamplingStatus = ppMediaTaskStatusDone ThenThenshp.Width = newWidthshp.Height = newHeightEndEnd IfIfEndEnd IfIfNextNext shpEndEnd SubSubFunctionFunction Pause(numberOfSeconds AsAs VariantVariant)DimDim startTime, endTime AsAs VariantVariantstartTime = TimerendTime = startTime + numberOfSecondse800，国内最具活力的 IT 门户网站。http:/www.e800.com.cn DoDo WhileWhile Timer endTimeDoEventsLoopLoopEndEnd FunctionFunction