Saving an image from a worksheet in a temporary folder

[Cease]

Hi,
I'm trying to take an image from a worksheet and save it as a temporary file using vba... anyone know if this is possible or how to do so?

For any examples I'm trying to use:
"Sheet1" and "Picture1"

Any advice or direction would be greatly appreciated.

 

[MickG]

This is one way:-
Copy picture to Chart Object:- save as "Gif" file "First Code"

Private Sub CommandButton1_Click()
Dim Cht As Object, fName As String
Set Cht = Sheets("Sheet4").ChartObjects(1).Chart
fName = "C:\Documents and Settings\test\Desktop\dog.gif"
Cht.Export Filename:=fName, Filtername:="GIF"
End Sub

Retrieve picture to Image control on sheet.

Private Sub CommandButton2_Click()
Image1.Picture = LoadPicture("C:\Documents and Settings\test\Desktop\dog.gif")
End Sub

Regards Mick