|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Chart als .jpg-Datei speichern |
25.02.2019 11:54:46 |
Jim |
|
|
|
25.02.2019 16:30:02 |
Gast37876 |
|
|
|
25.02.2019 17:11:47 |
Jim Decker |
|
|
|
25.02.2019 17:18:21 |
Jim |
|
|
|
25.02.2019 17:26:06 |
Gast46151 |
|
|
|
21.03.2019 17:13:51 |
Jim |
|
|
Von:
Jim |
Datum:
25.02.2019 11:54:46 |
Views:
966 |
Rating:
|
Antwort:
|
Thema:
Chart als .jpg-Datei speichern |
|
Hallo liebe Community,
ich habe folgenden Code aus einem Hilfe-Forum abgeguckt und er funktioniert eigentlich perfekt.
Leider werden jedoch in meinem Workbook alle Grafiken, also auch von anderen Sheets gespeichert. Ich würde jedoch gerne nur das Chart auf einem einzigen Sheet speichern lassen.
Hat jemand eventuell eine Lösung für mich? Möglicherweise sogar mit dem Zusatz, dass die gespeicherten Sheets als Endung eine fortlaufende Nummerierung erhalten. Das wäre natürlich noch ein Schmankerl. Denn so müsste man das gespeicherte Chart nicht mehr mühselig umbennenen, bevor man ein weiteres Speichern kann.
Ich bin dankbar für jede Hilfe.
LG, Jim
Hier der Code:
Sub Chart_SavetoJPG()
Dim objShell As Object
Dim objWindowsFolder As Object
Dim strWindowsFolder As String
Dim objSheet As Excel.Worksheet
Dim objChartObject As ChartObject
Dim objChart As Excel.Chart
'Select a Windows folder
Set objShell = CreateObject("Shell.Application")
Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")
If Not objWindowsFolder Is Nothing Then
strWindowsFolder = objWindowsFolder.self.Path & "\"
For i = ThisWorkbook.Worksheets.Count To 1 Step -1
Set objSheet = ThisWorkbook.Worksheets(i)
If objSheet.ChartObjects.Count > 0 Then
For Each objChartObject In objSheet.ChartObjects
Set objChart = objChartObject.Chart
objChart.Export strWindowsFolder & objChart.Name & ".jpg"
Next
End If
Next
'Open the windows folder
Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
End If
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Chart als .jpg-Datei speichern |
25.02.2019 11:54:46 |
Jim |
|
|
|
25.02.2019 16:30:02 |
Gast37876 |
|
|
|
25.02.2019 17:11:47 |
Jim Decker |
|
|
|
25.02.2019 17:18:21 |
Jim |
|
|
|
25.02.2019 17:26:06 |
Gast46151 |
|
|
|
21.03.2019 17:13:51 |
Jim |
|
|