插入的图片只能控制大小，无法移动，请高手赐招，谢谢。

* VFP中控制WORD图片大小
CLEAR
lcFileName=GETPICT()
IF !FILE(lcFileName)
   MESSAGEBOX(\"请选择图片文件\")
   RETURN
ENDIF
***请修改测试图片位置
oword=createobject("word.application")
oword.Visible=.t.
oword.Documents.add
oword.Selection.InlineShapes.AddPicture( lcFileName,.f.,.t.)

oword.Documents(1).InlineShapes(1).ScaleWidth=10     &&图片显示宽比例
oword.Documents(1).InlineShapes(1).ScaleHeight=10    &&图片显示高比例
*oword.Documents(1).InlineShapes(1).Top = 0
*oword.Documents(1).InlineShapes(1).IncrementLeft = 0
RETURN

在 return 前插入以下试试
oword.Documents(1).InlineShapes(1).ConvertToShape

filename2 = zppath + ALLTRIM(照片)+ ".jpg"   &&指定图片的全路径名称
If file(filename2)
       il = JccgWord.Documents(1).Tables(1).cell(1,2).range.InlineShapes.AddPicture(filename2,.F.,.T.)
      il.Width = 230
    il.Height = 180
Else
    &&MESSAGEBOX("未找到  " + filename2 + "  照片")
ENDIF
在Word中的表格里面指定位置插入一个图片并设定图片大小