excel宏中操作图片不能贴在word指定的位置，求大神看看

sylvain333

要用excel宏在word中指定位置贴外部的图片，并调整大小，现在图片都贴到word文档开头的位置了。求大神帮忙看看怎么回事。谢谢
Sub pic2a()

'可以调整图片大小，不能放到指定位置

   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j, k, myPicture As InlineShape
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
  
  
    导出文件名 = "检查月报"
    导出路径文件名 = 当前路径 & "\" & 导出文件名 & ".docx"
      
        
      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = True
      
        .ActiveDocument.Tables(3).Cell(2, 4).Select
        .ActiveDocument.Shapes.AddPicture Filename:=当前路径 & "\test.jpg", Left:=0, Top:=10, _
        Width:=150, Height:=200

      End With

End Sub