Diagramme automatisch extrahieren

Bild

Betrifft: Diagramme automatisch extrahieren
von: Thomas
Geschrieben am: 10.12.2003 08:54:36

Hallo,
Kann man alle Diagramme in einem Tabellenblatt automatisiert extrahieren/kopieren/wie-auch-immer und als Bilder abspeichern?

Danke,
Thomas

Bild


Betrifft: AW: Diagramme automatisch extrahieren
von: ChrisL
Geschrieben am: 10.12.2003 09:01:18

Hi Thomas

Dim cht As Chart

Set cht = Charts.Add

cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1:C3"), PlotBy:=xlRows
cht.Export "test.gif"


Gruss
Chris


Bild


Betrifft: AW: Diagramme automatisch extrahieren
von: Thomas
Geschrieben am: 10.12.2003 09:21:06

Hallo Chris,
vielen Dank, er macht was - aber was?? Ich habe mich sicher nicht genau genug ausgedrückt:
Ich habe insgesamt 4 Diagramme, die ich alle verschieden benennen muss (102_tube, 102_fin, 102_condenser, 102_performance). Diese Diagramme werden dann gemeinsam in ein Verzeichnis abgespeichert. Ich brauche also für jedes Bild einen "Speichern als"-Dialog. Aber ich muss natürlich auch wissen, welches der Diagramme er mir gerade anbietet...

Ist das zu machen?

Vielen Dank und Gruss
Thomas


Bild


Betrifft: Sorry, noch ein Zusatz...
von: Thomas
Geschrieben am: 10.12.2003 09:27:26

Diese Diagramme bestehen bereits, sie können nicht neu erzeugt werden, sie müssen von dem Blatt eben extrahiert werden...

Ist sicher was für Nussknacker, oder?

Danke,
Thomas


Bild


Betrifft: AW: Sorry, noch ein Zusatz...
von: ChrisL
Geschrieben am: 10.12.2003 10:32:47

Hi Thomas

Versuchs mal hiermit...
https://www.herber.de/mailing/011798h.htm

Gruss
Chris


Bild


Betrifft: AW: Sorry, noch ein Zusatz...
von: Thomas
Geschrieben am: 10.12.2003 11:11:27

Danke für den Tip, aber das klappt gar nicht. Meine VB-Kantnisse sind allerdings auch beshränkt, ich kann die Fehler nicht erkennen.

Gruss
Thomas


Bild


Betrifft: AW: Sorry, noch ein Zusatz...
von: ChrisL
Geschrieben am: 10.12.2003 11:38:38

Hast du das Diagramm auf einem separaten Blatt oder innerhalb einer Tabelle eingebettet?

Gruss
Chris


Bild


Betrifft: AW: Sorry, noch ein Zusatz...
von: Thomas
Geschrieben am: 10.12.2003 12:36:20

Innerhalb einer Tabelle sind insgesamt 4 Diagramme eingebettet.

Gruss
Thomas


Bild


Betrifft: AW: Sorry, noch ein Zusatz...
von: ChrisL
Geschrieben am: 10.12.2003 13:39:47

In der Tabelle funktioniert es so...

Sheets("Tabelle1").ChartObjects(1).Chart.Export _
FileName:="c:\test\Diagramm.gif", _
FilterName:="GIF"

Gruss
Chris


Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramme automatisch extrahieren"