使用MediaatProperties修改视频的各个方面.docx

e800，国内最具活力的IT门户网站。【e800编译】此示例演示在Microsoft PowerPoint 2010演示文稿中如何使用MediaFormat属性修改视频的各方面属性以及如何列出视频的属性设置。此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码将下面的代码复制到一个新的演示文稿。在第一张幻灯片中，添加视频（在“插入”选项卡中选择“视频”，找到视频目录）。播放视频以确保一切正常，然后将光标放置在下面进程，单步执行代码，属性值将出现在Immediate窗口中。代码中将更改视频的起始点与结束点（如果您的视频长度不超过5秒，可以修改这些值），调整音量以及淡入/淡出时间。Sub MediaFormatInfo()Dim shp As ShapeFor Each shp In ActivePresentation.Slides(1).Shapes Is it a media shape?If shp.Type = msoMedia ThenDebug.Print Media Element: & shp.NameDisplayMediaFormatInfo shp Work with the MediaFormat property:With shp.MediaFormat Modify the values that can be modified: Start at 2 seconds, end at 5 seconds, fade in and out for 1/2 second:.StartPoint = 2000.EndPoint = 5000.FadeInDuration = 500.FadeOutDuration = 500 Ensure the video isnt muted, and that the volume is less than the max:.Muted = False.Volume = 0.25End WithDebug.Print =DisplayMediaFormatInfo shpEnd IfNext shpEnd SubPrivate Sub DisplayMediaFormatInfo(shp As Shape)With shp.MediaFormat Retrieve all the useful properties:Debug.Print vbTab & AudioCompressionType: & .AudioCompressionTypeDebug.Print vbTab & AudioSamplingRate: & .AudioSamplingRateDebug.Print vbTab & EndPoint: & .EndPointDebug.Print vbTab & FadeInDuration: & .FadeInDurationDebug.Print vbTab & FadeOutDuration: & .FadeOutDurationDebug.Print vbTab & IsEmbedded: & .IsEmbeddedDebug.Print vbTab & IsLinked: & .IsLinkedDebug.Print vbTab & Length: & .LengthDebug.Print vbTab & Muted: & .MutedDebug.Print vbTab & ResamplingStatus: & .ResamplingStatusDebug.Print vbTab & SampleHeight: & .SampleHeightDebug.Print vbTab & SampleWidth: & .SampleWidthDebug.Print vbTab & StartPoint: & .StartPointDebug.Print vbTab & VideoCompressionType: & .VideoCompressionTyp