Worksheets(
"Tabelle5"
).ChartObjects(1) _
.Chart.Export _
Filename:=
"C:\Test\Diagramm1.jpg"
, FilterName:=
"jpg"
Worksheets(
"Tabelle5"
).ChartObjects(2) _
.Chart.Export _
Filename:=
"C:\Test\Diagramm2.jpg"
, FilterName:=
"jpg"
Worksheets(
"Tabelle6"
).ChartObjects(1) _
.Chart.Export _
Filename:=
"C:\Test\Diagramm4.jpg"
, FilterName:=
"jpg"
Worksheets(
"Tabelle6"
).ChartObjects(2) _
.Chart.Export _
Filename:=
"C:\Test\Diagramm4.jpg"
, FilterName:=
"jpg"