Insert pictures can only control the size, unable to move, do not give, thank you,

* control WORD in VFP image size
The CLEAR
LcFileName=GETPICT ()
IF ! The FILE (lcFileName)
MESSAGEBOX (\ "please select image files ")
RETURN
ENDIF
* * *
please modify test image positionOword=createobject (" word. Application ")
Oword. Visible=. T.
Oword. Documents. The add
Oword. Selection. InlineShapes. AddPicture (lcFileName, f.,. T.)

Oword. The Documents (1). InlineShapes (1) ScaleWidth=10 & amp; & Pictures show wide proportion
Oword. The Documents (1). InlineShapes (1) ScaleHeight=10 & amp; & Pictures showed high rate
* oword. The Documents (1). InlineShapes (1). The Top=0
* oword. The Documents (1). InlineShapes (1) IncrementLeft=0
The RETURN