AW: Grafik als Bild (jpg...) speichern
17.08.2007 14:43:00
dlhlht
Nach fleißiger Recherche im Archiv (bin kein faules Kerlchen) habe ich ein Makro gefunden das Bilder selbstständig in eine Datei exportiert. Eine andere Möglichkeit habe ich noch nicht gesehen. Habe das Makro mal angehängt für alle die Interesse haben und nicht nur schlaue Sprüche.
Greetz
Makro:
Sub Bild_exportieren()
Sheets("Qualitätsbericht").Select
Dim myChartObject As ChartObject, myShape As Shape
Dim bolfound As Boolean
Application.ScreenUpdating = False
For Each myShape In ActiveSheet.Shapes
If myShape.Type = msoPicture Then bolfound = True: Exit For
Next
If bolfound Then
myShape.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Worksheets.Add
Set myChartObject = ActiveSheet.ChartObjects.Add(0, 0, myShape.Width, myShape.Height)
With myChartObject
.Activate
.Chart.Paste
.Chart.Export Filename:=ActiveWorkbook.Path & "\durschnittlichesalter.jpg", _
FilterName:="JPG", Interactive:=False
End With
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Set myChartObject = Nothing
Set myShape = Nothing
Application.ScreenUpdating = True
End If
End Sub