vb.net2005中 如何保存excel中的图片(在线等)

如何将取得的excel对象实例如（sheet（1））中的图片，最好有相关代码，谢谢！ --------------------编程问答-------------------- 急！望高手帮帮忙！！ --------------------编程问答--------------------  Dim ea As New Excel.Application
        Dim ew As Excel.Workbook
        Dim es As Excel.Worksheet
        Dim filename As String
        filename = "C:\Documents and Settings\12\桌面\1.xls"
        ew = ea.Workbooks.Open(filename)
        es = ew.Sheets(1)
        es.Shapes.Item(0)'获得图像对象
        ew.Save()
        ea.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(es)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(ew)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(ea) --------------------编程问答-------------------- 谢谢forrest23的答复
如果sheet（1）的几个图片 我想将其另存如（D:\1.jpg；2.jpg...）应如何操作 --------------------编程问答-------------------- 我用的下面代码：  
 Dim ss As Excel.Worksheet
        Dim i As Integer
        Dim b As Bitmap
        Dim iData As IDataObject

        'excel.Version

        ss = wb.Worksheets(2)
        For i = 1 To ss.Shapes.Count

            ss.Shapes.Item(i).CopyPicture(, excel.XlCopyPictureFormat.xlPicture)
            iData = Clipboard.GetDataObject()
            If iData.GetDataPresent(DataFormats.Bitmap) Then
                b = CType(iData.GetData(DataFormats.Bitmap), Bitmap)
                b.Save("d:\sv" + CStr(i) + ".png")
            End If
        Next i

但ss.Shapes.Item(i).CopyPicture(, excel.XlCopyPictureFormat.xlPicture)中XlCopyPictureFormat点不出来
看看有没有别的取得图片然后另存更好的解决方法，不必用上面的，能解决就ok
谢谢大家了！

--------------------编程问答-------------------- 顶一下 --------------------编程问答-------------------- 关注... --------------------编程问答-------------------- 楼上： music_0000  把2008的帖子也找出來了啊。

补充：.NET技术 ,  VB.NET