Word VBA在文档最后一页右下角插入图片(盖章)

2019-11-08 17:22:00
tmtony8
原创
8

在Word文档中,我们会录入指定的图片。

如何在Word中的指定的位置插入添加图片呢?如把E:\logo.png添加到文档的最后一页



通过下面的代码,把图片插入到Word文档的最后一页的右下角


Sub AddPic()
    
    Dim p As Page
    Dim pos As Long
    Dim rng As Range
    Dim shp As Shape
    Dim shpDate As Shape
    Dim WdInlineSign As InlineShape
    Dim xOffer As Long
    Dim yOffer As Long
    Set p = ActiveWindow.Panes(1).Pages(Selection.Information(wdActiveEndPageNumber))
    pos = p.Rectangles(1).Range.End - 1
    Set rng = ActiveDocument.Range(pos, pos)
    ActiveDocument.Paragraphs.Last.Range.Select
    Set WdInlineSign = Selection.InlineShapes.AddPicture(FileName:="E:\logo.png", LinkToFile:=False, SaveWithDocument:=True, Range:=rng)
'    WdInlineSign.Select
'    Selection.ShapeRange.WrapFormat.Type = wdWrapFront
    Set shp = WdInlineSign.ConvertToShape
    
    
    
    
    
    xOffer = ActiveDocument.PageSetup.RightMargin
    yOffer = ActiveDocument.PageSetup.BottomMargin
'    595 277  90
    shp.Left = p.Width - shp.Width - xOffer
    shp.Top = p.Height - shp.Height - yOffer
    
    shp.ZOrder msoBringInFrontOfText
    
    
'    WdInlineSign.Select
'    Selection.ShapeRange.WrapFormat.Type = wdWrapFront
    
    dblLeft = shp.Left
    dblTop = shp.Top + shp.Height
    dboWidth = shp.Width
End Sub


如图,图片成功插入到文档的右下角

    分享