How to extract picture from sheet headers?

[PATSYS]

Hi all,

I have a sheet wherein somebody had inserted picture as Header in the PAGE SETUP, HEADER/FOOTER.

When I click on custom header, it only says &[Picture]

Is there a way to extract this image header?

I believe this picture is embedded somewhere in the file because the file size is unusually big. So if it is in the file, there must be a possiblity to extract it.

Thanks

 

[John_w]

Like this. Not sure if you can do anything with 'pic' though.

Sub test()
    Dim pic As Graphic
    
    Set pic = ActiveSheet.PageSetup.LeftHeaderPicture
    Set pic = ActiveSheet.PageSetup.CenterHeaderPicture
    Debug.Print pic.Filename
    Set pic = ActiveSheet.PageSetup.RightHeaderPicture
End Sub

 

[jim may]

John,

Is there a way to also "get the filename extension"? "jpg", for example????

 

[John_w]

I noticed too that .Filename is just the filename without the extenstion. It looks like Excel just stores the filename as a nicety, because once the graphic is embedded in the .xls file it doesn't matter where it came from or its file type.

 

[jim may]

Thanks john,,,

 

[jamilm]

interesting code.

i have a code where my some data of my excel is exported in word through VBA CreateObject("Word.Application").

i was wondering how modify the below code where it exports the embedded picture in my excel header to the word header.

any help is appreciated.

Like this. Not sure if you can do anything with 'pic' though.

Sub test()
    Dim pic As Graphic
    
    Set pic = ActiveSheet.PageSetup.LeftHeaderPicture
    Set pic = ActiveSheet.PageSetup.CenterHeaderPicture
    Debug.Print pic.Filename
    Set pic = ActiveSheet.PageSetup.RightHeaderPicture
End Sub

 

[Jaafar Tribak]

Has this ever been answered ?

I was thinking programmatically decompressing a copy of the workbook and extracting the image from the xl>media folder which in theory should work albeit being a very ugly hack.

Any better ideas ?

 

[John_w]

Hi Jaafar,

I haven't looked any further into this. The header/footer picture is a Graphic object type, so maybe there is a way to get to its related/underlying image.

 

[Jaafar Tribak]

I haven't looked any further into this. The header/footer picture is a Graphic object type, so maybe there is a way to get to its related/underlying image.

Hi John,

There doesnt seem to be a way of getting a StdPicture from the Graphic object ... The Graphic object is an obscure undocumented object which I can't find anywhere or its equivalent in vb6.

Thanks for your interest.