Word / OLE: Grafik einbinden

[omata]

So sollte es gehen...

Delphi-Quellcode:

  Word:=CreateOleObject('word.application');
  Word.Visible:=true;
  Word.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  Picture:=Word.Selection.InlineShapes.AddPicture(
    FileName:='Bild.jpg',
    LinkToFile:=False, SaveWithDocument:= true
  );
  Picture.ConvertToShape.Select;
  Word.Selection.ShapeRange.WrapFormat.Type:= 3; 
  Word.Selection.ShapeRange.IncrementLeft(126.35);
  Word.Selection.ShapeRange.IncrementTop(0.35);

Gruss
Thorsten