Как работать с Shapes
Материал из DRKB
var
Pic: Word2000.Shape;
Left, Top: OleVariant;
begin
{ Добавить картинку и поместить позади текста }
Left := 100;
Top := 100;
Pic := Doc.Shapes.AddPicture('C:\Small.bmp', EmptyParam, EmptyParam, Left, Top,
EmptyParam, EmptyParam, EmptyParam);
Pic.WrapFormat.Type_ := wdWrapNone;
Pic.ZOrder(msoSendBehindText);
{ Эффект "водяных знаков" }
Pic.PictureFormat.Brightness := 0.75;
Pic.PictureFormat.Contrast := 0.20;
{ Сделать белый цвет на картинке прозрачным }
Pic.PictureFormat.TransparencyColor := clWhite;
Pic.PictureFormat.TransparentBackground := msoTrue;
Pic.Fill.Visible := msoFalse;
end;
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 04425