How to copy and paste an embedded object to a folder?

[prerit86]

How do I copy an embedded object form Excel file to a specified folder? I have worked it out till copying.

Thanks in advance!

<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif; white-space: inherit; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;">[COLOR=#00008B]Sub[/COLOR] temp()
[COLOR=#00008B]Dim[/COLOR] cal [COLOR=#00008B]As[/COLOR] [COLOR=#00008B]Object[/COLOR][COLOR=#00008B]Set[/COLOR] 
cal = Sheet6.OLEObjects([COLOR=#800000]1[/COLOR])
[COLOR=#00008B]Dim[/COLOR] savepath [COLOR=#00008B]As[/COLOR] [COLOR=#00008B]String
[/COLOR]savpath = ThisWorkbook.path & [COLOR=#800000]"\"
[/COLOR][COLOR=#808080]'Paste code here----
[/COLOR][COLOR=#00008B]End[/COLOR] [COLOR=#00008B]Sub
[/COLOR]</code>