Ppt生成的PDF文件,不能打开超级链接的的图片。

ning84

在Ppt中，能够打开的超级链接。
Ppt生成的PDF文件，打不开超级链接。




问：Word，Ppt打开的超级链接，生成PDF文件后，是不是不能打开，只能通过复制，才能打开超级链接的图片。





************************************

ning84

知识点不够，没有解决。

1. Sub TraversePptDelPicture()
   
2.      Dim Fso As FileSystemObject, oFile As File, oFolder As Folder
   
3.          Set Fso = New FileSystemObject
   
4.      Dim Img As WIA.ImageFile
   
5.          Set Img = New WIA.ImageFile
   
6. 
   
7.      Dim Rng As Range, Sht As Worksheet
   
8.          Set Rng = Selection
   
9.          Set Sht = Rng.Parent
   
10.      Dim PathName, PicName, Ll, Str
    
11.          
    
12.          PathName = ThisWorkbook.Path & "\Ppt\2023年10月31日-1.Pptm"
    
13.          
    
14.      Dim oScale
    
15.      Dim Pres As Presentation
    
16.          Set Pres = OpenPpt(PathName)
    
17.      Dim Sld As Slide, Shp 'As Shape
    
18.          For Each Sld In Pres.Slides
    
19.               With Sld.NotesPage
    
20.                   Set Rng = Sht.Range(.Shapes(3).TextFrame.TextRange.Text)
    
21.                   Str = .Shapes(2).TextFrame.TextRange.Text
    
22.                   If Fso.FileExists(Str) = False Then
    
23.                        Rng.Resize(, 1).Resize(, 12).ClearContents
    
24.                        Sld.Delete
    
25.                   End If
    
26.               End With
    
27.               If Fso.FileExists(Str) Then
    
28.                   Set oFile = Fso.GetFile(Str)
    
29.                   Set oFolder = oFile.ParentFolder
    
30.               End If
    
31.          Next Sld
    
32.          Debug.Print oFolder.Files.Count = Pres.Slides.Count, oFolder.Files.Count, Pres.Slides.Count
    
33.          Stop
    
34.          Stop
    
35. End Sub
    
36. 
    
37. 
    
38. 
    
39. 
    

复制代码