mit folgendem Makro erstelle ich eine GIF-Datei eines via Excel erstellten Diagramms und speicher
es im gleichen Verzeichnis wie die Excel-Datei. - funktioniert prima -
Jetzt möchte ich das Makro so erweitern, daß nach dem Speichern
diese GIF-Datei direkt mit Paint (dem Windows-Programm) geöffnet wird.
Kann jemand helfen ? Freu mich auf eine Antwort
Besten Gruss Stefan
hier der Code
Sub Diagramm_als_GIF_speichern()
Dim Diagramm As Excel.Chart
Dim Dateiname As String
On Error GoTo Hell
Set Diagramm = ActiveSheet.ChartObjects(1).Chart
'wenn vorhanden, Diagrammtitel als Dateiname verwenden
If Diagramm.HasTitle = True Then
Dateiname = "\" & Diagramm.ChartTitle.Text & ".gif"
Else
Dateiname = "\ohne Titel.gif"
End If
'Diagramm als GIF speichern
Diagramm.Export Filename:=ThisWorkbook.Path & Dateiname, FilterName:="gif"
Set Diagramm = Nothing
'Info zu Speicherpfad + Frage wg Anzeige
If MsgBox("Diagramm gespeichert in:" _
& vbNewLine & vbNewLine _
& ThisWorkbook.Path & Dateiname _
& vbNewLine & vbNewLine _
& "Datei anzeigen?", vbYesNo, "") = vbYes Then
Shell "hh " & ThisWorkbook.Path & Dateiname, vbMaximizedFocus
End If
Exit Sub
Hell:
Set Diagramm = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub