![]() |
#2
kmyz_yyl2023-07-09 22:04
|
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
发现并不能旋转,要怎样修改呢?