非常着急！如何设置给WORD插入图片的环绕方式？(100分)

procedure Tkaiery_word.FSCPsignClick(const Ctrl: OleVariant;var CancelDefault: OleVariant);
begin
try
.............................
picfile:='c:/1.gif';
LinkToFile:=false;
SaveWithDocument:=True;
ctrl.Application.Selection.InlineShapes.AddPicture(picfile,LinkToFile,SaveWithDocument,EmptyParam);
ctrl.Application.Selection.ConvertToShape;
ctrl.Application.Selection.WrapFormat.Type_ := wdWrapNone;
ctrl.Application.Selection.ZOrder(msoSendBehindText);

end;

except
on E: Exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PChar(E.Message));
{$ENDIF}
end;
end;
end;


为什么 我的代码 不能控制 插入图片 以浮于文字上方 方式？

参考 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2519475

顶

接受答案了.