小吳 VBQA 程式設計討論

請問要如何,將圖貼入Sheet2中,並且存檔時也將圖一並存入呢?
MyXlsApp.Workbooks.Open "c:\Data\04.xls"
MyXlsApp.Visible = True
MyXlsApp.Workbooks(1).Activate
錯在下面這段,不會寫請指導一下
MyXlsApp.Sheets("Sheet2").Shapes.AddPicture "C:\My Documents\07.jpg", False, True, 100, 100, 100, 100

MyXlsApp.DisplayAlerts = True
MyXlsApp.ActiveWindow.Close False
Set MyXlsApp = Nothing
Set MyXlsApp = New Excel.Application
MyXlsApp.Quit