Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Sandra65 vom 01.11.2019, 08:15 Options

Diagramm als Bild speichern (Code vorhanden aber kleines Problem)

Hi ich benutze folgenden Code um ein Diagramm zu speicher. Diese habe ich im Internet gefunden


Sub procDiagrammExportieren()
Dim strGrafikName As String

strGrafikName = Application.GetSaveAsFilename( _
"diagramm", FileFilter:="GIF-Format (*.gif)," & _
" *.gif,JPG-Format (*.jpg), *.jpg, TIF-Format (*.tif),*.tif")

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

End Sub

Jetzt würde ich gern dieses Speichern untern einfach so ersetzen, dass es mir das diagramm automatisch unter dem namen diagramm1.gif speichert.

Ich bekomm das nicht hin.

Danke

Antwort schreiben

Antwort 1 von coros vom 01.11.2019, 12:58 Options

Hallo Sandra,

mit dem folgenden abgeänderten Makro sollte es funktionieren.

[b]Sub procDiagrammExportieren()
Dim strGrafikName As String

strGrafikName = "diagramm1.gif"

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

End Sub[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von coros vom 01.11.2019, 13:01 Options

Hallo Sandra,

war ein bisschen zu schnell mit dem Absenden des Beitrags.

Hatte vergessen den Pfad mit anzugeben. Also nachfolgend das gleiche Makro mit Pfadangabe.

[b]Sub procDiagrammExportieren()
Dim strGrafikName As String

strGrafikName = "C:\diagramm1.gif"

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

End Sub[/b]

Du musst in der Zeile

[b]
strGrafikName = "C:\diagramm1.gif"[/b]

den Pfad noch anpassen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken