How to identify if any PDF document is inserted in Excel sheet

[Negi1984]

Hi All,

Is there any way in excel macro/VBA to find if any PDF document in available in excel worksheet.
Thank in advance for the valuable suggestion and support.

Regards
Rajender

 

[Worf]

Hi

Sub Macro1()
Dim c%, i%
c = 0
For i = 1 To ActiveSheet.OLEObjects.Count
    If ActiveSheet.OLEObjects(i).progID = "AcroExch.Document.DC" Then c = c + 1
Next
MsgBox "You have " & c & " PDF file(s) on this sheet.", 64, ActiveSheet.Name
End Sub

 

[Negi1984]

Hi Worf,

Thanks a lot code is working fine.
Ijust change" AcroExch.Document.11" in the code.

Hi

Sub Macro1()
Dim c%, i%
c = 0
For i = 1 To ActiveSheet.OLEObjects.Count
    If ActiveSheet.OLEObjects(i).progID = "AcroExch.Document.DC" Then c = c + 1
Next
MsgBox "You have " & c & " PDF file(s) on this sheet.", 64, ActiveSheet.Name
End Sub

 

[Worf]

You are welcome and thanks for the feedback.