Hallo,
ich versuche schon seit Stunden, dem Word-Steuerelement "Bild" ein neues Bild hinzuzufügen. Das entfernen des aktuellen Bildes gelingt mir (siehe Code).
Was muss ich denn machen, damit ich z.B. ein neues jpg dem Aktive-X Steuerelement hinzufügen kann?
Grüße
Delphi-Quellcode:
procedure TForm1.DoTest2(const aWord : TWordApplication);
var
dummy1 : OleVariant;
dummy2 : OleVariant;
aInlineShape : InlineShape;
aDisp : IDispatch;
aPic : IPicture;
tmp : Integer;
aPicDisp : IPictureDisp;
begin
dummy1 := 'C:\testvorlage.dot';
dummy2 := false;
WordApp2.Documents.AddOld(dummy1, dummy2);
aInlineShape := WordApp2.ActiveDocument.InlineShapes.Item(1);
aDisp := aInlineShape.OLEFormat.Object_;
tmp := OleVariant(aDisp).Height;
aPicDisp := nil;
OleVariant(aDisp).Picture := aPicDisp; //entfernt das aktuelle Bild
end;