Grafik von Excel in die Wordtabelle

[Nimmersatt]

Hallo,

Ich will eine Grafik, die in einer Excel-Zelle hinterlegt ist, in eine Wordtabelle kopieren. Klappt nicht.

Ist statt einer Grafik ein Text hinterlegt, funktioniert es. Der Befehl lautet:

WordTabelle.Cell(1,1).Range.Text :=excel.cells[1,1].value;

Wie muß ich diese Befehlszeile entsprechend abändern, um die in der Excel-Zelle hinterlegte Grafik sichtbar u machen ?


mfg Nimmersatt

[zeras]

Ich meine, dass eine Grafik nicht in einer Zelle hängt, sondern nur dort platziert wird. Das würde das Problem erklären. Wie man aber aber die Grafik kommt, weiß ich nicht.

[Delphi.Narium]

Keine Ahnung, mein erster Versuch wäre: WordTabelle.Cell(1,1).Range.value :=excel.cells[1,1].value; Wenn ich in Excel mit Value ein Bild lesen kann, warum sollte ich das in Word als Text schreiben? Für mich wäre da beim Schreiben Value näherliegend.

Ob's geht? weiß nicht.

[Nimmersatt]

@delphi.Narium

Funktioniert nicht.

Ich versuche jetzt alle möglichen Shapes-Varianten auszuprobieren.



mfg Nimmersatt

[Nimmersatt]

Eine Grafik aus einem Verzeichnis einzulesen funktioniert, siehe hier

WordTabelle.Cell(1,1).range.InlineShapes.AddPicture('C:\eigene dateien\grafik 1.bmp',false,true);

Hat jetzt jemand eine Idee, wie die Grafik einer Excel-Zelle eingelesen werden kann ?


mfg Nimmersatt

[zeras]

Zitat von Nimmersatt:

Hat jetzt jemand eine Idee, wie die Grafik einer Excel-Zelle eingelesen werden kann ?

mfg Nimmersatt

Wie bekommst du eine Grafik in eine Excelzelle? Wenn ich aus der Zwischenablage importiere, dann liegt das Bild nicht in einer Zelle.
Hast du ein Beispiel?

[KodeZwerg]

Delphi-Quellcode:

Set p = ActiveSheet.Shapes.AddPicture(FileName:=PictureFileName,_
   linktofile:=msoFalse, savewithdocument:=msoCTrue, _ 
   left:=TargetCell.Left, Top:=TargetCell.Top, Width:=-1,_
   Height:=TargetCell.Height)

Gefunden hier. Hilft Dir das?

[Nimmersatt]

@Zeras

Na Grafik kopieren und bei der Excel-Zelle Inhalte einfügen.
Es gibt da keine Probleme Grafiken in Excel abzulegen.

Ich habe den Sinn deiner Frage nicht verstanden.


@Kodezwerg

Eine ähnliche Lösung habe ich schon gefunden, siehe hier

WordTabelle.Cell(1,1).range.InlineShapes.AddPicture('C:\eigene dateien\grafik 1.bmp',false,true);

Ich möchte aber die Grafik aus einer Excel-Zelle ablesen, die ich dort hinterlegt habe. Wo Excel genau diese Grafik abspeichert, weiss ich nicht.


mfg Nimmersatt

[zeras]

Zitat von Nimmersatt:

@Zeras

Na Grafik kopieren und bei der Excel-Zelle Inhalte einfügen.
Es gibt da keine Probleme Grafiken in Excel abzulegen.

Ich habe den Sinn deiner Frage nicht verstanden.

Ich bin nachwievor der Meinung, dass du zwar ein Bild in eine Zelle platzieren kannst, dieses aber nicht zur Zelle gehört, sondern nur durch die Position dort steht. Das Suchen des Bildes muss dann bestimmt nicht über die Zellinformation, sondern anderweitig passieren.

Unter hier steht etwas, wie man Bilder per VBA findet. Das kann man dann bestimmt auch im Excel implementieren.

[KodeZwerg]

Ich habe mir mal ein Kaufprodukt und dessen Features angeschaut, ich habe ja noch nie versucht ein Bild aus einer Excel Datei zu holen, aber bei denen stehts als not supported.

Du kannst Dir ja hier mal ein paar Macro Beispiele anschauen, mit genug Geduld und Com/Ole sollte dies auch mit Delphi möglich sein, mir fehlt momentan ersteres