happytc 发表于 2011-6-16 09:08:08

怎么在word里插入一个图片？[已解决]

本帖最后由 happytc 于 2011-8-25 23:51 编辑

对word的函数不熟，不知道怎么做了

实际是这样：用au3写了截屏脚本
$hBitmap = _ScreenCapture_Capture("", -1, -1, -1, -1, True)
怎么把上面HBITMAP句柄代表的图像帖到新开的word里？
若用句柄不行，那先保存图像为文件后，怎么插入这个图像文件？

用下面的代码：
$hBitmap = _ScreenCapture_Capture("", -1, -1, -1, -1, True)
_ClipBoard_Open(0)
_ClipBoard_Empty()
_ClipBoard_SetDataEx($hBitmap, $CF_BITMAP)
_ClipBoard_Close()

不知道那里错了，在Word里帖不上粘贴板里的图像

kevinch 发表于 2011-6-16 10:49:20

$o_WordApp=ObjCreate("word.application")
$o_WordApp.visible=True
$o_Doc=$o_WordApp.documents.add
$o_WordApp.selection.PasteAndFormat(16)如果剪贴板里有图像，上面这段可以粘贴进去，楼主试下。

happytc 发表于 2011-6-18 02:21:39

本帖最后由 happytc 于 2011-6-18 04:11 编辑

回复 2# kevinch

谢谢

对了，怎么在Powerpoint插入剪帖板里的图片？
Exce里的，按你上面给的，试了下，可以用下面的插入：

$oOfficeApp = ObjCreate("Excel.Application")
$oOfficeApp.visible = True
$oOfficeApp.Workbooks.add
$oOfficeApp.ActiveSheet.Paste


但PPT里，想用下面的，但没有成功，只是打开了PPT，没有帖图（看样子，好象是没有激活一张slide），实在是不懂VBA

$oOfficeApp = ObjCreate("PowerPoint.Application")
$oOfficeApp.visible = True
$oOfficeApp.Presentations.Add
$oOfficeApp.ActiveWindow.View.Paste

kevinch 发表于 2011-6-18 10:21:09

$oOfficeApp = ObjCreate("PowerPoint.Application")
$oOfficeApp.visible = True
$Slide=$oOfficeApp.Presentations.Add
$Slide.slides.add(1,1)
$oOfficeApp.activewindow.view.paste这个测试成功

happytc 发表于 2011-6-19 22:42:41

回复 4# kevinch

谢了，果然可以用了。原来还要加个Slide呀

kevinch 发表于 2011-6-20 09:43:17

不加就是空的ppt，一页都没有，所有就无法粘贴啦。

happytc 发表于 2011-6-20 10:05:51

回复 6# kevinch


    再次感 谢，已经把给的方法加入到我的软件Live Capture中了：
http://www.autoitx.com/thread-25502-1-1.html

kevinch 发表于 2011-6-20 11:32:29

:face (20):厉害，膜拜一下楼主，高人啊！

myhjcqk 发表于 2011-10-23 15:46:54

正在找这个，学习了{:face (411):}
页: [1]
查看完整版本: 怎么在word里插入一个图片？[已解决]