Picture als Datei speichern?

Hallo Leute,
ich habe ca. 200 XLS-Dateien und möchte aus dem Arbeitsblatt "Daten" (falls dieses in der Datei existiert) die Grafik / Picture (falls diese im Arbeitsblatt existiert) in einem bestimmten Verzeichnis als bmp-Datei speichern.
In Spalte A steht immer das Wort "Name" (von Datei zu Datei leider nicht an selbe Stelle) und der Zellinhalt der Zelle rechts daneben spich B soll als Dateiname genommen werden.
Wie mache es ich bitte per VBA?
So etwas ähnliches habe ich online gefunden:

Sub ExportWorksheetAsPicture()
Dim chtPicture As Chart
Dim strSheetName As String
Application.ScreenUpdating = False
strSheetName = Range("B3").Value
ActiveSheet.Range(ActiveSheet.UsedRange.Address).CopyPicture Appearance:=xlScreen, Format:= _
xlPicture
Set chtPicture = Charts.Add
chtPicture.Paste
chtPicture.export "T:\" & strSheetName & ".bmp"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing
Application.ScreenUpdating = True
End Sub

Vielen Dank vorab!
Gruß,
Selma

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub GrafikExportieren() Dim chtPicture As Chart Dim strSheetName As String Dim rngZelle As Range Set rngZelle = Columns(1).Find("Name", lookat:=xlWhole) If Not rngZelle Is Nothing Then Application.ScreenUpdating = False strSheetName = rngZelle.Offset(0, 1).Value ActiveSheet.UsedRange.CopyPicture Appearance:=xlScreen, Format:= _ xlPicture Set chtPicture = Charts.Add chtPicture.Paste chtPicture.Export "T:\" & strSheetName & ".bmp" Application.DisplayAlerts = False chtPicture.Delete Application.DisplayAlerts = True Set chtPicture = Nothing Application.ScreenUpdating = True End If End Sub

Sub GrafikExportieren() Dim chrDiagramm As ChartObject Dim strSheetName As String Dim picBild As Picture Dim rngZelle As Range Set rngZelle = Columns(1).Find("Name", lookat:=xlWhole) If Not rngZelle Is Nothing Then Application.ScreenUpdating = False strSheetName = rngZelle.Offset(0, 1).Value Set picBild = ActiveSheet.Pictures(1) picBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set chrDiagramm = ActiveSheet.ChartObjects.Add(0, 0, picBild.Width, picBild.Height) With chrDiagramm.Chart .Parent.ShapeRange.Line.Visible = msoFalse .Paste .Export Filename:="T:\" & strSheetName & ".bmp", FilterName:="bmp" End With chrDiagramm.Delete Set chrDiagramm = Nothing Set rngZelle = Nothing Application.ScreenUpdating = True End If End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Picture als Datei speichern?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread