How can I EXPORT a package object from excel.

[Colo]

Hi guys,

I imported an ico file as an object as follows.

    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Program Files\Microsoft Office\Office\Forms\POSTL.ICO", link:=False, _
        DisplayAsIcon:=False).Select

I would like to export this package object as an icon file.
Anyone help?

 

[Colo]

This cannot be done...? Waiting your reply.

 

[Juan Pablo González]

Well Colo,

I just faced a similar issue last week, where I needed to import some pictures into a workbook to later export them, and, I thought of your same method... import them as Objects, and export them later using some "Save As" method/verb that I couldn't find...

Luckily for me, I could insert them as pictures, and use Bullen's PastePicture method to save them as bmp... but, in your case, I don't know if that could work... save as bmp, but using an ico extension ?

 

[Colo]

Juan, thanks for your reply.

Well Colo,

I just faced a similar issue last week, where I needed to import some pictures into a workbook to later export them, and, I thought of your same method... import them as Objects, and export them later using some "Save As" method/verb that I couldn't find...

Luckily for me, I could insert them as pictures, and use Bullen's PastePicture method to save them as bmp... but, in your case, I don't know if that could work... save as bmp, but using an ico extension ?

What is Bullen's PastePicture? Export via a chart object?
If so, I'll try your suggestion. After export it as an bitmap file, change extention to ico via name statement.

Regarding to my question, I feel it cannot be done, but at here(MeExcel board), I have seen made impossible thing to possible. So I posted this.

Again, thanks Juan.

 

[Ivan F Moala]

Hi Colo

You can do it BUT, for now, the only method i know is to use the Infamous sendkeys in conjunction with OLE Verb construct.

eg..

    With Application
        .DisplayAlerts = False
        '//
        Selection.Verb Verb:=xlOpen

        .SendKeys "%FS", True
        '// Name the File
        .SendKeys "MyIc.ico", True
        '// Save
        .SendKeys "~", True
        '// Close the object
        .SendKeys "%FX", True
        '// Restore back to last Dir
        .DisplayAlerts = True
    End With

Until I can find a way to to it without sendkeys.........
Seems like you can DO this via Clipboard object and the Use of the Shell/Shell NameSpace to get it to Paste as into a user selected Dir....

 

[Ivan F Moala]

BTW.......the method JPG mentions .......just use the code from the Html maker in order to Save the image file EXCEPT try with a differnt File extension......I don't think this will work ??? BUT I never tried it.

 

[Colo]

Until I can find a way to to it without sendkeys.........

Thanks, it works. To tell you the truth, I would like to use this function in an add-in.
So I hope you will find another way without sendkeys.

BTW.......the method JPG mentions .......just use the code from the Html maker in order to Save the image file EXCEPT try with a differnt File extension......I don't think this will work ??? BUT I never tried it.

I have tried it but it did not work.

Anyway thanks for your reply!