請問要如何,將圖貼入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
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
文章標籤
全站熱搜
MyXlsApp.Workbooks.Open "d:\t.xls" MyXlsApp.Workbooks(1).Activate MyXlsApp.Sheets("Sheet1").Shapes.AddPicture "d:\t.jpg", False, True, 100, 100, 100, 100 MyXlsApp.Save MyXlsApp.ActiveWindow.Close False MyXlsApp.Quit Set MyXlsApp = Nothing