ฉันเขียนสคริปต์ VB ขนาดเล็กที่จะตัดเส้นทางที่แน่นอนจากไฟล์สื่อและปล่อยให้พวกเขาเป็นเส้นทางญาติ
Global fso As New FileSystemObject
Public Sub ConvertMediaToRelativePaths()
Dim i As Integer
Dim sld As Slide, shp As Shape
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoMedia Then
Dim path As String, fname As String
path = shp.LinkFormat.SourceFullName
fname = fso.GetFileName(path)
shp.LinkFormat.SourceFullName = fname
i = i + 1
End If
Next
Next
If i > 0 Then
MsgBox "Converted " & CStr(i) & " Video Source Paths.", vbOK
Else
MsgBox "No Videos Found.", vbOK
End If
End Sub
สิ่งนี้ควรใช้งานได้ทั้งในปี 2003 และ PowerPoint ในภายหลัง ง่ายกว่าที่ผู้บุกรุกจะแก้ปัญหาโดยสังเขป
โปรดทราบว่า VBA ต้องการการอ้างอิง"Microsoft Scripting Runtime (scrun.dll)"
เพื่อใช้FileSystemObject
คลาส