6
Bild aus Excel per VBA exportiren
Hallo alle zusammen!
Gibt es eine Möglichkeit per VBA ein Excel Tabellenblatt nach einem Bild zu durchsuchen, das Bild soll dann in einem Vordefinierten Ordner abgespeichert werden, mit den Name (Inhalt aus Zelle A | Gleiches Tabellenblatt wo nach dem Bild gesucht worden ist).
Oder etwas ähnliches? Kann man sowas mit einen VBA Code bewältigen?
Danke und liebe Grüße
Gibt es eine Möglichkeit per VBA ein Excel Tabellenblatt nach einem Bild zu durchsuchen, das Bild soll dann in einem Vordefinierten Ordner abgespeichert werden, mit den Name (Inhalt aus Zelle A | Gleiches Tabellenblatt wo nach dem Bild gesucht worden ist).
Oder etwas ähnliches? Kann man sowas mit einen VBA Code bewältigen?
Danke und liebe Grüße
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 624262
Url: https://administrator.de/contentid/624262
Ausgedruckt am: 17.11.2024 um 01:11 Uhr
6 Kommentare
Neuester Kommentar
Hallo,
ja das ist nicht ganz einfach, da ein direkter Export nicht vorgesehen ist, du musst dir über ein "temporäres" chart behelfen,
den Dateinamen musst du dir halt noch aus deinen Tabellenblattdaten holen
ja das ist nicht ganz einfach, da ein direkter Export nicht vorgesehen ist, du musst dir über ein "temporäres" chart behelfen,
den Dateinamen musst du dir halt noch aus deinen Tabellenblattdaten holen
Sub LoopThroughImagesOnWs()
Dim shp As Shape
Dim ws As Worksheet
Set ws = ActiveSheet
For Each shp In ws.Shapes
If shp.Type = msoPicture Then
Set tempChartObj = ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height)
savePath = "C:\Users\user\Downloads\mySavedPic.jpg"
'Copy picture into chart, then export chart
shp.Copy
tempChartObj.Chart.ChartArea.Select
tempChartObj.Chart.Paste
tempChartObj.Chart.Export savePath
tempChartObj.Delete
End If
Next shp
End Sub
1
Hallo godlie
Vielen Dank einmal,
Soweit funktioniert der Code.
Das Problem jetzt aber, da der Name nicht Variable ist wird das bestehende Bild immer wieder überschrieben :/
Außerdem soll das Bild und erstellte Chart nachher aus dem Tabellenblatt gelöscht werden. :/
Jedenfalls Danke vielmals
Vielen Dank einmal,
Soweit funktioniert der Code.
Das Problem jetzt aber, da der Name nicht Variable ist wird das bestehende Bild immer wieder überschrieben :/
Außerdem soll das Bild und erstellte Chart nachher aus dem Tabellenblatt gelöscht werden. :/
Jedenfalls Danke vielmals
Hallo,
der erstelle Chart sollte eig. über tempChartObj.delee wieder verschwinden. hab leider kein Excel da zum testen aber das müsste so in die Richtung gehen:
der erstelle Chart sollte eig. über tempChartObj.delee wieder verschwinden. hab leider kein Excel da zum testen aber das müsste so in die Richtung gehen:
Sub LoopThroughImagesOnWs()
Dim shp As Shape
Dim ws As Worksheet
Dim tempChartObj As ChartObject
Dim savePath,cellValue,sheetValue As String
Set ws = ActiveSheet
For Each shp In ws.Shapes
If shp.Type = msoPicture Then
Set tempChartObj = ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height)
cellValue = Range("A1").Value
sheetValue = ActiveSheet.Name
saveName = cellValue & sheetValue & ".jpg"
savePath = "C:\Users\user\Downloads\" & saveName
'Copy picture into chart, then export chart
shp.Copy
tempChartObj.Chart.ChartArea.Select
tempChartObj.Chart.Paste
tempChartObj.Chart.Export savePath
tempChartObj.Delete
End If
Next shp
End Sub
Hallo,
leider passiert bei dem Code nichts.
Also ich habe mein Pfad angepasst, es kommt keine Fehlermeldung aber in meinen Ordner ist auch kein Bild. :/
leider passiert bei dem Code nichts.
Also ich habe mein Pfad angepasst, es kommt keine Fehlermeldung aber in meinen Ordner ist auch kein Bild. :/
Hallo,
ja dann ab in den Debugmodus
Hast du die cellValue <-- Range angepasst, an deine Zelle?
Wird der ActiveSheet.Name richtig gelesen?
wie sieht der saveName u savePath aus.......
das zu fixen ist jetzt nicht mehr schwierig
ja dann ab in den Debugmodus
Hast du die cellValue <-- Range angepasst, an deine Zelle?
Wird der ActiveSheet.Name richtig gelesen?
wie sieht der saveName u savePath aus.......
das zu fixen ist jetzt nicht mehr schwierig
Hallo,
Ehrwürdig vielen vielen Dank.
Der Fehler war das ich blind den Ordnerpfad kopiert habe.
savePath = "C:\Users\Trumic\Desktop\ExcelBilder" & saveName
Hinten hat ein '\' gefehlt so das das Bild auf dem Desktop gelandet ist mit dem Namen "ExcelBilder&A1&TabellenName"
Vielen Vielen Dank
liebe Grüße
Ehrwürdig vielen vielen Dank.
Der Fehler war das ich blind den Ordnerpfad kopiert habe.
savePath = "C:\Users\Trumic\Desktop\ExcelBilder" & saveName
Hinten hat ein '\' gefehlt so das das Bild auf dem Desktop gelandet ist mit dem Namen "ExcelBilder&A1&TabellenName"
Vielen Vielen Dank
liebe Grüße
