AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Grafik von Excel in die Wordtabelle

Grafik von Excel in die Wordtabelle

Ein Thema von Nimmersatt · begonnen am 3. Okt 2018 · letzter Beitrag vom 5. Okt 2018
Antwort Antwort
Seite 1 von 2  1 2   
Nimmersatt

Registriert seit: 14. Feb 2014
86 Beiträge
 
#1

Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 13:27
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
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.618 Beiträge
 
Delphi 12 Athens
 
#2

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 13:55
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.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.400 Beiträge
 
Delphi 7 Professional
 
#3

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 13:58
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.
  Mit Zitat antworten Zitat
Nimmersatt

Registriert seit: 14. Feb 2014
86 Beiträge
 
#4

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 14:48
@delphi.Narium

Funktioniert nicht.

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



mfg Nimmersatt
  Mit Zitat antworten Zitat
Nimmersatt

Registriert seit: 14. Feb 2014
86 Beiträge
 
#5

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 19:46
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
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.618 Beiträge
 
Delphi 12 Athens
 
#6

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 19:55

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?
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.685 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 19:58
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?
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Nimmersatt

Registriert seit: 14. Feb 2014
86 Beiträge
 
#8

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 20:10
@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
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.618 Beiträge
 
Delphi 12 Athens
 
#9

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 20:16
@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.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.685 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Grafik von Excel in die Wordtabelle

  Alt 3. Okt 2018, 20:45
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
Gruß vom KodeZwerg

Geändert von KodeZwerg ( 3. Okt 2018 um 20:56 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz