da ich neu bin: ersteinmal Hallo zusammen!
Meine Frage: wie exportiere ich ein Diagramm aus Excel als .jpg?
Vielen Dank im Voraus.
Sub Eingebettete_Charts_exportieren()
Dim i As Long
With ActiveWorkbook.Worksheets("Tabelle1") ' Hier ggf anpassen!!!
For i = 1 To .ChartObjects.Count
.Shapes(i).ScaleWidth 1.5, msoFalse, msoScaleFromBottomRight
.Shapes(i).ScaleHeight 1.5, msoFalse, msoScaleFromBottomRight
sFName = ThisWorkbook.Path & Application.PathSeparator & "Diagramm" & i & ".gif"
.ChartObjects(i).Chart.Export FileName:=sFName, FilterName:="GIF"
.Shapes(i).ScaleWidth 0.6666, msoFalse, msoScaleFromTopLeft
.Shapes(i).ScaleHeight 0.6666, msoFalse, msoScaleFromTopLeft
Next i
End With
End Sub