Herbers Excel-Forum - das Archiv

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
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Diagramme automatisch extrahieren"
Export von Diagrammen im Grafikformat Eine Serie von Diagrammen erstellen und Druckansicht zeigen
Automatische Datumformatierung unterdrücken Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen Nach Zelleingabe automatische Sortierung