Dim oShape As Word.Shape

Set oShape = wd.Sections(1).Footers(wdHeaderFooterFirstPage).Shapes.AddPicture( _
        fileName:=ActiveWorkbook.path & "\Подписи\" & nameSign, _
        LinkToFile:=False, SaveWithDocument:=True)

        With oShape
        .LockAspectRatio = msoTrue
        .Width = wdApp.CentimetersToPoints(signW)
        .PictureFormat.TransparentBackground = msoTrue
        .PictureFormat.TransparencyColor = RGB(255, 255, 255)
        .Fill.Visible = msoFalse
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .LayoutInCell = False
        .WrapFormat.AllowOverlap = True
        End With

oShape.Left = wdApp.CentimetersToPoints(5.5)
oShape.Top = wdApp.CentimetersToPoints(3.3)

Set oShape = Nothing