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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 624262
Url: https://administrator.de/contentid/624262
Printed on: April 18, 2024 at 15:04 o'clock
6 Comments
Latest comment
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
