VBA Excel -> 在页码下方添加图片

Question

I have a little picture that I would like to add into my word document, with Excel VBA. The thing is that it is not a problem to add it to the footers. But I would like to add it below the page number which i illustrated in the picture.

I have tried many things and used google to find inspiration. However, I cannot find any solution which solves this kind of problem. Do anyone have an idea to solve this?

Set B2 = ActiveSheet.Shapes("P2")

With wApp
    .Visible = True
    .Activate
    Set wdDoc = .Documents.Add()
    With wdDoc
        With wApp.ActiveDocument.PageSetup
            .TopMargin = CentimetersToPoints(2.5)
            .LeftMargin = CentimetersToPoints(2)
            .RightMargin = CentimetersToPoints(4.7)
            .BottomMargin = CentimetersToPoints(2.5)
            .HeaderDistance = CentimetersToPoints(0.98)
            .FooterDistance = CentimetersToPoints(1.5)
        End With
        B2.Copy
        With .Sections(1).Footers(wdHeaderFooterPrimary).Range
            .Font.Size = 7
            .Font.Name = "Arial"
            With .ParagraphFormat
                .Alignment = wdAlignParagraphLeft
                .TabStops.Add Position:=InchesToPoints(7), Alignment:=wdAlignTabRight
            End With
            .InsertAfter "THIS IS THE COMPANY IN THE LFT PART OF FOOTERS" & vbTab & "Page "
            .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=False
            .InsertAfter Text:=" / "
            .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="NUMPAGES", PreserveFormatting:=False
            .InsertAfter Chr(11) & vbTab
            .Collapse wdCollapseEnd
            .Paste
            .End = .End + 1
            With .InlineShapes(1)
                .LockAspectRatio = True
                .Height = InchesToPoints(0.25)
            End With

Kind regards

Mathias

Answer 1

Perhaps:

With .Sections(1).Footers(wdHeaderFooterPrimary).Range
    .Font.Size = 7
    .Font.Name = "Arial"
    With .ParagraphFormat
      .Alignment = wdAlignParagraphLeft
      .TabStops.Add Position:=InchesToPoints(7), Alignment:=wdAlignTabRight
    End With
    .InsertAfter "THIS IS THE COMPANY IN THE LFT PART OF FOOTERS" & vbTab & "Page "
    .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=False
    .InsertAfter Text:=" / "
    .Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="NUMPAGES", PreserveFormatting:=False
    .InsertAfter Chr(11) & vbTab
    .Characters.Last.Paste
    .End = .End + 1
    With .InlineShapes(1)
      .LockAspectRatio = True
      .Height = InchesToPoints(0.25)
    End With
End With