如何用vba在word文档中插入图片?

要用vba在word文档中插入图片,需要用到InlineShapes对象的 AddPicture 方法。

它的语法如下:

.InlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)

其中FileName参数表示要插入的图片的完整路径, LinkToFile参数表示是否将图片与文档链接, SaveWithDocument参数表示图片和文档是否一起保存, Range参数表示插入图片的位置。

其中要特别注意的是LinkToFile 参数和 SaveWithDocument参数不能同时为False,否则代码将提示参数错误。

如下代码将在当前文档的起始位置插入一个图片:

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Set oRng = oDoc.Range(1, 1)
    Dim oISP As InlineShape
    'LinkToFile 参数和 SaveWithDocument参数不能同时为False
    Set oISP = oDoc.InlineShapes.AddPicture(FileName:="C:\Users\xyf\Desktop\一笔艺术签名.gif", LinkToFile:=False, SaveWithDocument:=True, Range:=oRng)InlineShap
End SubInlineShape

 

       

发表评论