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

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