Exporting images Excel VBA

[MedievalMan]

Currently I am exporting an image (since export is only available with charts) by copying the image and placing it in a chart and exporting from there:

(btw, I'm doing this so I can save a local copy to use with the header logos)

Code:

Dim objPict As Object
Dim MyChart As Chart

Sheets("Test Header").Shapes("logo").Select
Set objPict = Selection
    
With objPict
    .CopyPicture 1, 1
    Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
End With
    
With MyChart
     .Paste
     .Export Filename:="C:\logo.gif", FilterName:="gif"
     .Parent.Delete
End With

My problem is that the generated image logo.gif always has a grey border around it -- is there anyway to disable this? It happens irregardless if I use the gif, jpg, or tiff filter.

Or, alternately, is there a better way of exporting images?


Thanks in advance.

 

[DougAJ4]

The Jon Peltier blog just happens to have covered this very subject recently:

http://peltiertech.com/WordPress/2008/06/09/enhanced-export-chart-procedure/

Hope that helps