Export range as JPG

Hi all,
Using and adapting some from http://www.mvps.org/dmcritchie/excel/xl2gif.htm and http://www.ozgrid.com/forum/showthread.php?t=88851 I succeeded in exporting name ranges as jpg's.
However, I still have a 'problem' : I would like to set the dimensions of the jpg in code.
Is there any help on the way ?
Thanks
Eddie

An additional question on this subject.
The ranges I am exported have a green background (for publishing on a website). When I do the export in Excel XP, everything looks fine (except for the automatic sizing), but when I use Excel 2007 there is a white border around the jpg.
Any ideas about this.
Thanks again.
Eddie
My code :

Public Sub JPG_Snapshot(strEXP As String, FileSaveName As String)
'Adapted from :
'Harold Staff -- see http://www.mvps.org/dmcritchie/excel/xl2gif.htm
'XL2GIF_module -- GIF_Snapshot
'modified http://www.ozgrid.com/forum/showthread.php?t=88851
'changed from GIF to JPG
'procedures : ImageContainer_init, JPG_Snapshot
'par :container, wbContainer,strGraph, wbSource
'Eddie 06/10/2008

'Inputs :
' - strEXP       : range to be exported as JPG
' - FileSaveName : path and filename

    Dim SaveName As Variant
    Dim Hi As Long
    Dim Wi As Long

    Set wbSource = ActiveWorkbook
    ImageContainer_init
    wbSource.Activate

    SaveName = FileSaveName
    If SaveName = False Then
        GoTo ForgetIt
    End If
    If InStr(SaveName, ".") Then SaveName = Left(SaveName, InStr(SaveName, ".") - 1)
    Range(strEXP).Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    Hi = Selection.Height
    Wi = Selection.Width
        
    wbContainer.Activate
    ActiveSheet.ChartObjects(1).Activate

    strGraph = Mid(ActiveChart.Name, Len(ActiveSheet.Name) + 2)

    ActiveSheet.Shapes(strGraph).Height = (Hi - 0.75)
    ActiveSheet.Shapes(strGraph).Width = (Wi - 4.25)

    ActiveChart.Paste

    With Selection.ShapeRange
        .Top = -4.25
        .Left = -4.25
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.SchemeColor = 65
    End With

    ActiveChart.Export Filename:=LCase(SaveName) & ".jpg", FilterName:="JPEG"
    ActiveChart.Pictures(1).Delete
    intExp = 1
    wbSource.Activate
    ActiveSheet.Protect

ForgetIt:
    On Error Resume Next
    Application.StatusBar = False
    wbContainer.Saved = True
    wbContainer.Close
End Sub
Private Sub ImageContainer_init()
    Workbooks.Add (1)
    ActiveSheet.Name = "JPGContainer"
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="JPGContainer"
    ActiveChart.ChartArea.ClearContents
    Set wbContainer = ActiveWorkbook
    Set container = ActiveChart
End Sub