How do I get rid of these borders?

[bcurrey]

I have the code below that selects a cell range and then saves it on my computer as a png file. When it does this, it's creating a border around it. How do I get rid of this?

I thought it was the Width & Height + 10, but that doesn't appear to be it unless I'm doing something wrong. Thanks!!

' save a range from Excel as a picture
Dim rng As Excel.Range
Dim cht As Excel.ChartObject

Const strPath As String = "C:\Documents and Settings\CB021\Desktop\Real time stats web\images\"

Application.ScreenUpdating = False

Set rng = Excel.Range("G10:H15").CurrentRegion

rng.CopyPicture xlScreen, xlPicture

Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 10, rng.Height + 10)

cht.Chart.Paste

cht.Chart.Export strPath & "24HR_ORDERS.png"

cht.Delete

ExitProc:
Application.ScreenUpdating = True
Set cht = Nothing
Set rng = Nothing

 

[bcurrey]

Any thoughts on this?