Excel如何导入图片本身，而不是链接

[jjpweb]

Sheet.Pictures.Insert('xxx.jpg')
只是插入的链接，当原始文件删除，excel不能正常显示
有没有copy、Parse之类办法。

[doloopcn]

直接用DELPHI的ClipBord粘贴过去，应该也可以吧

[jjpweb]

自力更生了，直接上代码

        Fpicture := Sheet.Pictures.Insert(appPath + 'tmpJpg.jpg');
        Fpicture.Width := 102;
        Fpicture.Height := 126;
        Fpicture.Select;
        Fpicture.copy;
        Sheet.Cells[L, dbgrd.Columns.Count + 1].select;
        Sheet.Pictures.Paste.Select;
        Fpicture.delete;

[hongss]

先Copy图片，然后黏贴到你想要的位置

    Chart1->CopyToClipboardBitmap();
    r = EWS1->get_Range(V(as), V(as1));
    EWS1->Paste(V(LPDISPATCH(r)), TNP, 0);

[jjpweb]

自己写的东西，没权限编辑，这科学吗？
说明一下，这一行是选择某个cell，根据自己的情况修改行列
Sheet.Cells[L, dbgrd.Columns.Count + 1].select;