Extract OLE object

[sharky12345]

Does anyone know how I can extract an OLE object which is a pdf file?

 

[sharky12345]

Progress - got this which opens the file, all I need to do now is work out how to save it;

Dim oEmbFile As Object
Application.DisplayAlerts = False
Set oEmbFile = ActiveSheet.OLEObjects("Object 2")
oEmbFile.Verb Verb:=xlPrimary
Set oEmbFile = Nothing
Application.DisplayAlerts = True

 

[John_w]

Try the code at https://www.mrexcel.com/forum/excel...t-embedded-excel-post4743477.html#post4743477. You can delete the AvDoc code which opens the PDF file.