Question

如何运用vba将指定图片插入word中？

如题 请高手编出宏代码 插入word的某一个表格中的固定位置

Answer 1

宏代码如下：
Sub Macro1()
ActiveDocument.Tables(1).Cell(3, 1).Select
Selection.InlineShapes.AddPicture FileName:="C:\a.jpg", LinkToFile:=True, SaveWithDocument:=True
End Sub
HF

Answer 2

例如，新建一个4行1列的表格，然后在Cell(3, 1)内插入图片：
Sub Macro1()
Dim mysel
mysel = ActiveDocument.Tables(1).Cell(3, 1)
mysel.InlineShapes.AddPicture FileName:="C:\a.jpg", LinkToFile:=True, SaveWithDocument:=True
End Sub