Hallo zusammen,
ich habe einen größeren Datensatz, aus dem ich Diagramme erzeuge, die dann automatisch unter einem bestimmten Namen gespeichert werden. Nun möchte ich aber beim Speichern nicht immer auf "ok" klicken. Wie muss ich das Speichern angehen, ohne den Prozess "manuell" zu bestätigen?
Ich kopier mal den Speicherabschnitt hier rein:
'Diagramm als jpg unter Namen aus Spalte 1 speichern
strGrafikName = Application.GetSaveAsFilename(wks.Cells(iRow, 1).Value, FileFilter:="JPG-Format (*.jpg)," & _
" *.gif,JPG-Format (*.jpg), *.jpg")
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, _
FilterName:=Right(strGrafikName, 3)
'aktives Diagramm wird gelöscht
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
'und dann weiter für die nächste Zeile
iRow = iRow + 1
Loop
Exit Sub
ErrorHandler:
If Err.Number = 91 Then
Msgbox "Export nicht möglich. " & _
"Sie haben kein Diagramm ausgewählt.", _
vbCritical + vbOKOnly, _
"Diagramm als Grafik exportieren"
Else
Msgbox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description, vbCritical + _
vbOKOnly, "Diagramm als Grafik exportieren"
End If
Vielen Dank für Eure Hilfe!
UTA.