PicLocation = FULLPATH("windows7.jpg") ... oExcel.Range("A3").PictureS.Insert(PicLocation)>
> > With oExcel > .Rows("1:1").RowHeight = 35.00 > .Rows("2:2").RowHeight = 35.00 > .Range("A1").Select > Local PicLocation As String > PicLocation = "windows7.jpg" > Create Cursor tblImg(img G) > Append Blank > Append General img From &PicLocation > Use Dbf("TBLIMG") Again In 0 > Locate > Keyboard "{CTRL+C}{CTRL+W}" && Copy the jpg > Modify General tblImg.img > .ActiveSheet.paste() > Endwith >>
> *!* Local PicLocation As String > *!* PicLocation = "windows7.jpg" > *!* If PicLocation <> "" Then > *!* *oExcel.Selection.PictureS.Insert(PicLocation).Select > *!* oExcel.Range("A3").PictureS.Insert(PicLocation) > *!* Else > *!* Endif >>