oNewSheet=oWorkbook.Sheets.ADD() oWorkbook.Sheets(oNewSheet.NAME).SELECT oExcel.ActiveSheet.PICTURES.INSERT( curDIARY.notes).SELECT