VBA Alle Diagramme aus einer Excel Datei speichern

Hallo zusammen,
kurz vorab: VBA kann hab ich leider (noch) nicht drauf.
Ich habe eine Datei mit ca. 20 Reitern. In den meisten befinden sich hautsächlich Pivot Carts.
Nun möchte ich das per Knopfdruck (Das wär das höchste der Gefühle :-) alle Diagramme aus allen Reitern als PNG oder allg. als Bilddatei mit geringstem Qualitätsverlust in den Ordner "Figures" ausgeschrieben werden. Der Ordner Figures soll, wenn nicht bereits vorhanden, angelegt werden und sich im gleichen Ordner wie die Excel Datei befinden, die die Diagramme enthält.
Als Dateiname soll die y-Achsenbeschriftung der jeweiligen Diagramme verwendet werden.
Alles was ich bisher dazu gefunden habe funktioniert für ein Diagramm in einem Reite r und liefert als Dateiname den Diagrammnamen. Bei der Änderung des Namens auf die Y-achsenbeschriftung und dem Loop über alle Reiter bin ich kläglich gescheitert.
Habt ihr vielleicht ein paar Codeschnipsel, die mich weiterbringen?
Viele Grüße
Johann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DiaExport() Dim wksTab As Worksheet Dim chrDia As ChartObject Dim strExport As String If Dir("D:\Figures\", vbDirectory) = "" Then MkDir "D:\Figures\" ChDir "D:\Figures\" For Each wksTab In Worksheets With wksTab If .ChartObjects.Count > 0 Then For Each chrDia In .ChartObjects If chrDia.Chart.Axes(xlValue, xlPrimary).HasTitle = True Then strExport = chrDia.Chart.Axes(xlValue, xlPrimary).AxisTitle.Caption Else strExport = chrDia.Name End If chrDia.Chart.Export Filename:=strExport & ".jpg", FilterName:="JPG" Next chrDia End If End With Next wksTab End Sub

Hi Johann,
schau mal in der VBA-Hilfe zum Stichwort Chart.Export-Methode - vielleicht gibt es in Excel2013 irgendeinen Hinweis, was noch berücksichtigt werden muss. Bei 2010 steht dort folgendes:

Tabelle2

	A	B	C	D
1	Chart.Export-Methode
2	Exportiert das Diagramm in einem Grafikformat.
3	Syntax
4	Ausdruck.Export(Filename, FilterName, Interactive)
5	Ausdruck Eine Variable, die ein Chart-Objekt darstellt.
6	Parameter
7	Name	Erforderlich/Optional	Datentyp	Beschreibung
8	Filename	Erforderlich	String	Der Name der exportierten Datei.
9	FilterName	Optional	Variant	Der sprachenunabhängige Name des Grafikfilters, wie er in der Registrierung angezeigt wird.
10	Interactive	Optional	Variant	Mit True wird das Dialogfeld mit den filterspezifischen Optionen angezeigt. Besitzt dieses Argument den Wert False, werden in Microsoft Excel die Standardwerte für den Filter verwendet. Der Standardwert lautet False.

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 18.09 einschl. 64 Bit

Sub DiaExport() Dim wksTab As Worksheet Dim chrDia As ChartObject Dim strExport As String Dim SavePath As String SavePath = "F:\Figures\" If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath For Each wksTab In Worksheets With wksTab If .ChartObjects.Count > 0 Then For Each chrDia In .ChartObjects If chrDia.Chart.Axes(xlValue, xlPrimary).HasTitle = True Then strExport = chrDia.Chart.Axes(xlValue, xlPrimary).AxisTitle.Caption Else strExport = chrDia.Name End If chrDia.Chart.Export Filename:=SavePath & strExport & ".png", FilterName:="PNG" Next chrDia End If End With Next wksTab End Sub

Beliebteste Forumthreads (12 Monate)

VBA Alle Diagramme aus einer Excel Datei speichern

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Alle Diagramme aus einer Excel Datei speichern

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread