如何将徽标图像集中到Word 2016页脚中？

Question

我想将徽标图像集中在Word 2016文档的页脚中。

基于 word footer image image图像对齐，我可以得到徽标进入页脚，但无法将其居中。

Sub Main()
'Based on https://stackoverflow.com/questions/58257052/word-footer-image-alignment-in-vba
  Dim FIRMADOC As String
  Dim SHP As InlineShape
  Dim rng As Word.Range

  FIRMADOC = "C:\Users\" & Environ("username") & "\Documents\Invoice\footer.png"

  Set rng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
  rng.Collapse wdCollapseStart
  rng.Text = vbTab & vbTab 'position at second, right-aligned tab in the footer)
    ‘(Note: I have tried removing the tabs to no useful effect)
  Set SHP = rng.InlineShapes.AddPicture(FileName:=FIRMADOC, LinkToFile:=False, SaveWithDocument:=True, Range:=rng)
  
'Based on Record Macro
      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Application.Templates( _
        "C:\Users\Brian\AppData\Roaming\Microsoft\Document Building Blocks\1033\16\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Bold Numbers 3").Insert Where:=Selection.Range, _
        RichText:=True
End Sub

图像（“ FirmAdoc”）结束时是合理的。手动更改家庭标签的对齐工作。记录手动更改空无一人。

Answer 1

例如：

Dim Shp As Shape
With ActiveDocument
    Set Shp = .Shapes.AddPicture(FileName:="C:\Users\" & Environ("username") & "\Documents\Invoice\footer.png", _
        LinkToFile:=False, SaveWithDocument:=True, Anchor:=.Sections(1).Footers(wdHeaderFooterPrimary).Range)
    Shp.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
    Shp.Left = wdShapeCenter
End With

或者，如果您希望将徽标格式化为在线：

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
    .InlineShapes.AddPicture FileName:="C:\Users\" & Environ("username") & "\Documents\Invoice\footer.png", _
        LinkToFile:=False, SaveWithDocument:=True, Range:=.Characters.Last
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With