您的位置：程序门 -> vb -> 基础类

如何为word插入图片？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何为word插入图片？

发表于：2008-01-17 20:56:47 楼主

第一次用vb写word，现在写文字是成功了，可是想问一下，如果为word写入图片？
各位有没有清楚的，讲一下哈，谢谢

vbscript code


private sub command1_click（)
'  save word bookmarks
on error resume next
dim app as word.application
dim doc as word.document
set app = createobject（"word.application")
app.visible = false
app.documents.open "d:\doc\x.doc"
app.activedocument.bookmarks.item（"aaa").select

app.selection = "测试"
app.activedocument.bookmarks.item（"bbb").select
app.selection = "测试"
app.documents（1).saveas "d:\doc\temp.doc"
app.documents.close
end sub

发表于：2008-01-17 21:24:361楼得分:0

vbscript code


private sub command1_click（)
'  save word bookmarks



dim app as word.application
dim doc as word.document
dim aaf as inlineshape

set app = createobject（"word.application")
app.visible = false
app.documents.open "d:\temp\doc.doc"
app.activedocument.bookmarks.item（"aaa").select

app.selection = "测试"
app.activedocument.bookmarks.item（"bbb").select

set aaf = app.selection.inlineshapes.addpicture（"d:\temp\照片.bmp", false, true)

aaf.height = 100
aaf.width = 100
app.documents（1).saveas "d:\temp\temp.doc"
app.documents.close
app.quit

end sub

问题解决。。。。快来领分哈```

其他资讯