注册 登录
编程论坛 VFP论坛

请教关于WORD的图片旋转。

liunis 发布于 2023-07-09 21:22, 721 次点击
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

发现并不能旋转,要怎样修改呢?
1 回复
#2
kmyz_yyl2023-07-09 22:04
with oword.ActiveDocument.Shapes(1).PictureFormat
    .ROTATION=90
endwith
1