Sub InsertPicture()
Dim wdTable As Object
Dim objWrdDoc As Object
Dim strFile As String
Dim p As InlineShape, t As Object
Dim pShape As Object

On Error Resume Next
strFile = "C:\Users\BaranovVO\Desktop\Вставка печати\Документ.docx"
'прописать путь к Документу
Set objWrdApp = GetObject(, "Word.Application")  'пытаемся подключится к объекту Word
If objWrdApp Is Nothing Then
    Set objWrdApp = CreateObject("Word.Application")  'если приложение закрыто - создаем новый экземпляр
    Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать
    objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open(strFile)
On Error GoTo 0
    
Set WdRange = objWrdDoc.Content
Set wdTable = WdRange.Tables(1)

Set p = wdTable.Rows(1).Cells(1).Range.InlineShapes.AddPicture("C:\Users\BaranovVO\Desktop\Вставка печати\печать.png", False, True)
'прописать путь к картинке
'вставил абы куда, куда получилось, хотелось бы вставить сразу куда нужно
p.ScaleWidth = 20
p.ScaleHeight = 20
Set t = p.ConvertToShape
t.WrapFormat.Type = wdWrapNone

t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
t.Left = 260                    'значения, конкретно под этот случай
t.Top = 370                    'значения, конкретно под этот случай

End Sub