Getting photo data from eBay - can I save Activesheet.Shapes(1) ?

[TomPC]

Hi All

I've got Excel 2010 and Windows 7.

My business buys lots of stock from eBay and it would be helpful to download my purchase history into Excel. Unfortunately, there is no export functionality (see How can I download my purchase history ?: Answer Center: eBay Answer Center).

I'm basically after: eBayID, Description, Date, Price, P&P, Seller... and photo

I have already built something where I manually copy and paste an eBay page into Excel and then extract the data I need.

The only thing I have left to do is see if I can somehow suck in the photo.

The photos are referred to as eg activesheet.shapes.

What I'd love to do is save that file down somehow. I did see someone try to do it using charts (http://www.mrexcel.com/forum/excel-questions/666856-code-replace-embedded-image-filename-url.html) but I couldn't get the code to work.

The part that threw an error was:

Charts.Add
            ActiveChart.Location Where:=xlLocationAsObject, Name:=SheetNo

Any ideas how to save activesheet.shape(1) as a file ?

Thanks

Tom

 

[MickG]

Try something like this with you picture pasted into Chart object.

Dim Currentchart As Chart
Dim fname As String
Set Currentchart = Sheets("Sheet1").ChartObjects(1).Chart
fname = ThisWorkbook.Path & "\temp.gif"
Currentchart.Export Filename:=fname, filtername:="Gif"
MsgBox "Run"

 

[TomPC]

Hi Mick

Thanks for that and thanks for helping.

I am at the stage where I've identified the picture and dropped it into a variable:

set objPic = activesheet.shapes

What code would I need to get it into Currentchart as you have it above?

Thanks eversomuch!

Tom

 

[MickG]

Something like this works.

Dim fname As String
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Picture 9").Cut
ActiveChart.Paste
fname = ThisWorkbook.Path & "\temp.gif"
ActiveChart.Export Filename:=fname, filtername:="Gif"