This code (adapted from the Recorder) runs in a workbook called nurdel.xls
and assumes that N11 is free (you can use any cell).  A button has already
been created with an image on it.  The code:

1. copies the button and pastes the image onto the worksheet
2. saves the file as html
3. saves the file as xls

The html save produces a folder called nurdel_files.  In the folder is a jpg
file containing the picture that originally appeared in the button.

Sub snap_it()
ActiveSheet.Shapes("CommandButton1").Select
Selection.Copy
Range("N11").Select
With ActiveSheet
.PasteSpecial Format:="Picture (JPEG)", Link:=False, DisplayAsIcon:=False
End With

ActiveWorkbook.SaveAs Filename:= _
 "C:\Documents and Settings\Owner\Desktop\nurdel.htm", FileFormat:=xlHtml, _
 ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
 "C:\Documents and Settings\Owner\Desktop\nurdel.xls",
FileFormat:=xlNormal, _
 Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
 CreateBackup:=False
End Sub