FILE_00099900=THISFORM.IMAge2.Picture
if file(FILE_00099900)
oword=createobject("word.application")
oword.Documents.add
oword.Selection.InlineShapes.AddPicture(FILE_00099900,.f.,.t.)
oword.Documents(1).InlineShapes(1).ROTATION=90
oword.VISIBLE=.T.
ENDIF

发现并不能旋转，要怎样修改呢？

with oword.ActiveDocument.Shapes(1).PictureFormat
    .ROTATION=90
endwith