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

* 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