Save Embedded Files

[Sandeep Warrier]

Hi All,

I have a workbook that contains embedded pdf / html files in a column
(never column A). The column to its immediate left contains a path.

Is there any way where I can save the embedded files in the path
provided?

Cross posted at :- http://www.mrexcel.com/forum/showthread.php?t=401819

Thanks,

Sandeep

 

[muddan madhu]

I tried to get this done, but unfortunately not

I can able to open objects and save it my document but you need to
save it in a specified location.

try this, i will try to find this answer.

Sub emdb()
Dim obj As Object
For Each obj In ActiveSheet.Shapes
obj.Select
Selection.Verb
Application.SendKeys "+^(s)", True
Application.SendKeys ("{TAB} + {TAB} + {ENTER}")
Application.SendKeys "^(W)", True

Next

End Sub