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

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

本帖最后由 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

厉害，膜拜一下楼主，高人啊！

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

正在找这个，学习了

		自动登录	找回密码
密码			加入

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

相关帖子

评分

评分