vb6.0 打开一个存在的excel文件后插入一张.jpg图片
vb6.0 在一个按钮单击事件中 打开已存在的excel文件后插入一张.jpg图片。想实现这个功能

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\111.xls")
Set xlSheet = xlBook.Worksheets(1)

网上好多代码用到 "xlSheet.Pictures.Insert("C:\123.jpg")"
可是 xlSheet 下没有 pictures 呀。。。。
请问各位高手，关于在excel中插入图片的功能怎么实现呀 Excel Visual?Basic?6.0 图片
[解决办法]

'先引用对象库:Microsoft Excel 11.0 Object Library
Option Explicit

Dim xlExcel As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()
        On Error GoTo Errhandler
        xlExcel.Application.Visible = True
        Me.MousePointer = vbHourglass
        xlExcel.Workbooks.Add
        xlExcel.Workbooks(1).Activate
        Set xlSheet = xlExcel.Workbooks(1).Worksheets(1)
        xlSheet.Activate
        ActiveSheet.Pictures.Insert("C:\WINDOWS\Zapotec.bmp").Select
Errhandler:
        Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    xlBook.Close
    xlExcel.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlExcel = Nothing
End Sub