|
Hallo zusammen,
ich habe ein Problem zum Thema sendkey im Dialogfeld, und zwar möchte ich das ich beim Klick auf einem Button in Excel ein diagramm automatisch in .png abspeichert. Das öffnen des Dialogfeldes habe ich soweit hinbekommen, doch weis ich jetzt nicht wie ich es steuern kann das sich die Datei automatisch speichert ohne diese auf dem Button zu bestätigen. Habe es auf den verschiedensten wegen Probiert, bekomme es aber nicht hin automatisch zu speichern.
hat irgendjemad eine Idee ob und wie man das steuern kann?
für jede hilfe bin ich dankbar!
Sub procDiagrammExportieren()
Dim strGrafikName As Variant
Application.SendKeys "{Enter}"
strGrafikName = _
Application.GetSaveAsFilename("P:\...\dateiname.png\", _
FileFilter:="PNG-Format (*.png), *.png")
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, _
FilterName:=Right(strGrafikName, 3)
Exit Sub
ErrorHandler:
If Err.Number = 91 Then
MsgBox "Export nicht moeglich. " & _
"Sie haben kein Diagramm ausgewaehlt.", _
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
ActiveWorkbook.Sheets(1).Activate
End Sub
|