WORD VBA在Word的表格中插入图片，图片移位问题

[fangcsz]

使用如下VBA代码向Word中的表格单元格中插入图片时图片并没有出现在cell（1,3）中，而是出现在cell（1,1）中，试过其他行，都是出现在行首的第一个单元格中。

wdoc.tables(1).cell(1, 3).Select
Set mypic = wapp.Selection.InlineShapes.AddPicture(Filename:="E:\VBA\ldh.jpg", LinkToFile:=False, SaveWithDocument:=True)

而加上一句向单元格赋值的语句就可以实现在正常位置的插入代码如下：

wdoc.tables(1).cell(1, 3).Select
wdoc.tables(1).cell(1, 3).Range.Text = " "
Set mypic = wapp.Selection.InlineShapes.AddPicture(Filename:="E:\VBA\ldh.jpg", LinkToFile:=False, SaveWithDocument:=True)

没搞明白原因，求大神解答~

[tangxjcxv65]

遇到了同样问题： 原因是：光标，始终在第1个单元，光标也要移动到目标单元格才行 解决方案，来自微软官网 Sub GoToStart() Dim rng As Range Set rng = Selection.Tables(1).Cell(1, 2).Range rng.Collapse Direction:=wdCollapseStart rng.Select ''''这个位置执行插入 End Sub 原文：https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-msoffice_custom-mso_2007/word-vba-moving-cursor-to-1st-cell-in-the-current/f10414c6-2f55-469c-bc03-65fc2b314733