0度跨越

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://pptaddins.blogbus.com/logs/32046474.html

下面的代码用于提取嵌入到PPT中的声音并把它保存为 一个文件，SoundFormat对象在PPT对象模型中属于隐藏对象。

1. Sub ExtractWavFile()
2. Dim oShp As Shape
3. Set oShp = ActiveWindow.Selection.ShapeRange.Item(1)
4. With oShp
5. If .Type = msoMedia Then
6. If .MediaType = ppMediaTypeSound Then
7. If Dir(.SoundFormat.SourceFullName) <> "" Then
8. If MsgBox("Overwrite the original file?", _
9. vbQuestion + vbYesNo, "File already exists") = vbYes Then
10. .SoundFormat.Export .SoundFormat.SourceFullName
11. End If
12. End If
13. End If
14. End If
15. End With
16. End Sub