论坛 › 已解决问题区 › 咨询如何将图片插入到word表格中[已解决]

yygnkhtk 发表于 2016-7-29 18:18:33

咨询如何将图片插入到word表格中[已解决]

本帖最后由 yygnkhtk 于 2016-7-31 13:10 编辑

http://www.autoitx.com/forum.php?mod=viewthread&tid=38775&highlight=word%2B%B1%ED%B8%F1%2B

论坛搜了很久，国外网站也看了（虽然看不懂），但就是搜索不到将图片插入Word的表格中的方法，上面链接被提问者设置了仅作者可以查看，实在找不到办法了，kevinch 大侠好久没上坛子了，其他大侠还有方法分享下么？谢谢了~

K大给的方法果然有用，谢谢了，以下为示例代码；Local $word = ObjCreate("word.application")
$word.visible = True
Local $doc = $word.documents.add
$doc.tables.add($doc.range,5,2);5行2列
Local $i

With $doc.tables(1)
        For $i = -6 To -1
                $doc.tables(1).borders($i).linestyle=1
        Next
        For $i = 1 To 5
                $doc.tables(1).cell($i,1).range.inlineshapes.addpicture(@DesktopDir&"\000.bmp",false,true)
        Next
EndWith

MsgBox(0,"","哒哒~图片粗来啦~")
$doc.saved=True
$doc.close
$word.quit

kevinch 发表于 2016-7-31 11:29:14

这样试下
$doc.tables(表格序号).cell(行序号,列序号).range.inlineshapes.addpicture(图片文件全路径名,false,true)
$doc是文档对象
表格序号是指文档中的第几个表
行序号是要插入的单元格在表格中从上到下数到的位置
列序号是要插入的单元格在表格中从左到右数到的位置
后面的false指的是不插入图标，这样会插入实体图片而不是链接
最后一个true指的是插入的对象同文档一起保存

yygnkhtk 发表于 2016-7-31 13:06:57

回复 2# kevinch


    感谢k大了，非常实用，解决了~{:face (316):}

zxxputian2 发表于 2017-10-7 10:58:20

好源码，学习

查看完整版本: 咨询如何将图片插入到word表格中[已解决]