Hsieh

1. Sub ex()
   
2. Dim Ob As OLEObject
   
3. With ¤u§@ªí1
   
4. For Each Ob In .OLEObjects
   
5.    If Ob.OLEType = xlOLELink Then
   
6.       ar = Split(Ob.SourceName, ".")
   
7.       If ar(UBound(ar)) = "pdf!'" Then Ob.Delete
   
8.    End If
   
9. Next
   
10. End With
    
11. End Sub

½Æ»s¥N½X

¦^´_ 3# li_hsien

Hsieh

¦^´_ 6# li_hsien

1. Sub AddObject() '¥[¤JPDFÀɮת«¥ó
   
2. Dim A As Range, f$, fd$, fn$
   
3. Application.ScreenUpdating = False
   
4. For Each A In Range([A2], [A2].End(xlDown))
   
5. fd = ThisWorkbook.Path & "\"
   
6. f = Dir(fd & A & ".pdf")
   
7. fn = fd & f
   
8. MyIcon = "C:\Windows\Installer\{AC76BA86-7AD7-1028-7B44-AA1000000001}\PDFFile_8.ico" '§Úªº¹Ï¥ÜÀɦì¸m
   
9. 'MyIcon = "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico"'§Aªº¹Ï¥ÜÀɦì¸m
   
10. A.Offset(, 1) = ""
    
11. If f <> "" Then
    
12.     With ActiveSheet.OLEObjects.Add(Filename:= _
    
13.         fn, Link:=False, DisplayAsIcon _
    
14.         :=True, IconFileName:= _
    
15.         MyIcon, _
    
16.         IconIndex:=0, IconLabel:=fn)
    
17.         .Left = A.Offset(, 1).Left
    
18.         .Top = A.Top
    
19.         End With
    
20.         Else
    
21.         A.Offset(, 1) = "§ä¤£¨ìÀÉ®×" & A & ".pdf"
    
22. End If
    
23. Next
    
24. End Sub
    
25. Sub DeletObject() '§R°£PDF
    
26. Dim Ob As OLEObject
    
27. For Each Ob In ActiveSheet.OLEObjects
    
28.    If Ob.progID = "AcroExch.Document.7" Then Ob.Delete
    
29. Next
    
30. MsgBox "¾ã²z§¹¦¨"
    
31. End Sub

½Æ»s¥N½X