ich benötige Hilfe für ein Excel Makro.
Ich habe Excel Dateien mit je 7 Tabellenblättern.
Auf diesen Tabellenblättern befinden sich Diagramme, die ich in eine Powerpoint Präsentation als Grafik (wegen der Dateigröße) einbinden möchte!
Gewünschtes Grafikformat ist JPG.
Das Makro für diesen Schritt habe ich bereits vorliegen:
Sub procDiagrammExportieren()
Dim strGrafikName As String
strGrafikName = Application.GetSaveAsFilename( _
"diagramm", FileFilter:="JPG-Format (*.jpg), *.jpg")
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, _
FilterName:=Right(strGrafikName, 3)
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
End
Sub
Was mir jetzt aber noch fehlt ist ein Makro, dass die JPG Dateien der
Diagramme automatisch als Dateinamen den Namen des Tabellenblattes erhalten,
in dem sie sich befinden. Der Speicherort soll gleichzeitig das Verzeichnis der Arbeitsmappe sein, in der sich die Diagramme befinden.
Diese Schritte sollen möglichst ohne Bestätigungs- und Eingabefenster geschehen.
D.h. per Knopfdrck soll automatisch exportiert und gespeichert werden.
Kann ich für diesen Zweck der Symbolleiste ein neues Symbol zuweisen, was dann bei jeder Ecxel Areitsmappe benutzt werden kann?
Ich bin Dankbar für jeden Tip, wie ich dieses Makro erstellen kann.
Es soll nachher für viele verschiedene Arbeitsmappen anwendbar sein.
Vielen Dank und viele Grüße
Robert