>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 >>>>