试试，自行设置不同的边距看效果
Dim app As New MSWord.Application
try
Dim fileName = "e:\123.docx"
Dim doc As object = app.Documents.Open(fileName)
Dim img = "e:\123.jpg" '图片路径
Dim Top As Integer = 100 '上边距
Dim left As Integer = 100 ‘左边距’
Dim w As Integer = 0 ‘宽
Dim h As Integer = 0 ‘高
doc.Shapes.AddPicture(img, False, True, left ,Top ,w,h)
app.visible = True
'Doc.save
catch ex As exception
msgbox(ex.message)
app.Quit
End try
加好友 
发短信
Post By：2020/5/30 15:12:00 [只看该作者]
