Excel Bild in Spalte A, Bildname in Spalte B speichern unter Bildname auf PC mit VBA?

Um ein Bild in Excel zu speichern, das in Spalte A eingefügt ist, den Bildnamen aus Sp B zu verwenden, kannst du den folgenden VBA-Code verwenden. Dieser Code durchläuft die Zeilen deinem Arbeitsblatt, speichert jedes Bild unter dem entsprechenden Namen in Spalte B und speichert es im angegebenen Verzeichnis.

Hier ist ein Beispielcode:

```vba
Sub BilderSpeichern()
Dim ws As Worksheet
Dim pic As Picture
Dim bildName As String
Dim speicherPfad As String
Dim i As Integer

' Arbeitsblatt festlegen
Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Namen entsprechend

' Speicherpfad festlegen
speicherPfad = "C:\Dein\Speicherpfad\" ' Ändere den Pfad entsprechend

' Durchlaufe alle Bilder in der Tabelle
For i = 1 To ws.Pictures.Count
Set pic = ws.Pictures(i)

' Bildname aus Spalte B holen
bildName = ws.Cells(pic.TopLeftCell.Row, 2).Value

' Bild speichern
pic.Copy
With CreateObject("Word.Application")
.Visible = False
.Documents.Add
.Selection.Paste
.ActiveDocument.SaveAs2 speicherPfad & bildName & ".jpg", 17 ' 17 steht für JPEG
.ActiveDocument.Close False
.Quit
End With
Next i

MsgBox "Bilder wurden gespeichert!"
End Sub
```

### Hinweise:
1. **Speicherpfad anpassen**: Ändere den `speicherPfad` zu dem gewünschten Speicherort auf deinem PC.
2. **Tabellenname anpassen**: Stelle sicher, dass der Tabellenname in `Set ws = ThisWorkbook.Sheets("Tabelle1")` korrekt ist.
3. **Dateiformat**: Der Code speichert die Bilder im JPEG-Format. Du kannst das Format ändern, indem du den Parameter in der `SaveAs2`-Methode anpasst.

Um den Code auszuführen, öffne den VBA-Editor in Excel (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.