PowerPoint中的LinkFormat对象

几天前有个朋友（simon）来信问“如果在PPT里边插入影音文件，如何在保存文件的时候将影音文件也保存出来？”

呵呵，以前我也没处理过，通过测试，发现问题的关键是如何知道影音文件的路径，通过分析，发现其实并不是很难，主要是以前没有注意LinkFormat对象，其实在MSDN中有如下的范例：

With ActivePresentation.Slides(1).Shapes(1)

If .Type = msoLinkedOLEObject Then

With .LinkFormat

.SourceFullName = "c:\my documents\wordtest.doc"

.AutoUpdate = ppUpdateOptionAutomatic

End With

End If

End With

其中对SourceFullName 属性解释如下：

应用于示例特性返回或设置链接 OLE 对象的源文件的名称或路径。可读写。String 类型。

使用如下的代码测试了一下：

'<summary>

'Test过程就是在在幻灯片里边插入一个空白幻灯片

'然后在幻灯片中插入一个影片文件,然后查看Shape对象的LinkFormat对象的FullName属性就行了

'至于保存的时候如何处理，这个简单，你写一段宏就可以了

'剩下的自己发挥吧

'</summary>

Sub InsertAvi()

ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="F:\clock.avi", Left:=239.625, Top:=149.625).Select

ActiveWindow.Selection.Unselect

End Sub

Sub ShowPath()

If Application.ActivePresentation.Slides(1).Shapes(1).MediaType = ppMediaTypeMovie Then

'关键是你理解一下LinkFormat对象

'LinkFormat.SourceFullName就是文件的保存路径

MsgBox Application.ActivePresentation.Slides(1).Shapes(1).LinkFormat.SourceFullName

End If

End Sub

这些是在VBA里边测试的，通过了，我想最主要的就是这个LinkFormat.SourceFullName这句话了，其实simon的想法很好，因为如果PPT中的影音文件如果不保存的话，如果放到别的机器上，就不能正常播放了，AVI就变成了一个图片了，呵呵，所以还是有用的。

我想余下的最重要的就是Update这个方法了，如下：

For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            sh.LinkFormat.Update
        End If
    Next
Next

通过这个修改绝对路径为相对路径，应该就不是问题了。

PowerPoint中的LinkFormat对象相关推荐

【在PowerPoint中插入视频的三种方法】
为了能更好地帮助大家合理地在PowerPoint课件中插入和播放视频文件, 在PowerPoint中插入视频的三种方法 ,本文特向大家介绍PowerPoint中插入和处理视频的三种方法. 直接播放视频 ...
如何在PowerPoint中更改文本的大小写
If you're looking to quickly change the case of the text in a slide of your PowerPoint presentation, ...
在PowerPoint中插入Flash动画
这种方法是将动画作为一个控件插入到powerpoint中去,该方式的特点是它的窗口大小在设计时就固定下来,设定的方框的大小就是在放映时动画窗口的大小.当鼠标在Flash播放窗口中时,响应Flash的鼠 ...
PowerPoint中插入并控制Flash播放
一.PowerPoint中插入Flash文件(*.swf) 怎样把一个flash动画嵌入一个ppt文件中,从而使得播放时不在需要原来的flash文件要在 PowerPoint 中播放 F ...
PowerPoint中提示某些文件可能携带有病毒，损害您的计算机
关于PPT的小问题(急) 悬赏分:200 - 解决时间:2007-5-27 11:58 我在PPT上的一张图上做了个歌曲的超链接,但每次点击播放的时候就会弹出一个对话框,说是不安全链接,问你是确定还 ...
如何在PowerPoint中插入时钟
Constantly glancing at a clock on a wall or at your watch to keep up with the time can be distractin ...
如何在PowerPoint中制作流程图
Microsoft PowerPoint provides built-in tools for creating and arranging different types of flowchart ...
关于javascript闭包中的this对象
我们知道, this对象是运行时基于函数的执行环境绑定的:在全局函数中,this等于window,而当函数被作为某个对象的方法调用时,this等于那个对象.<Javascript高级程序设计&g ...
excel html modify,在Excel 2010中修改Series对象上的Z-index(Modify Z-index on Series object in Excel 2010)...
在Excel 2010中修改Series对象上的Z-index(Modify Z-index on Series object in Excel 2010) 我正在使用excel 2010. 我有一个 ...

PowerPoint中的LinkFormat对象

PowerPoint中的LinkFormat对象相关推荐

最新文章

热门文章