Как работать с 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