Mam plik Excel zawierający zdjęcia w kolumnie B i chcę je wyeksportować do kilku plików w formacie .jpg (lub dowolnego innego formatu pliku obrazu). Nazwa pliku powinna być generowana z tekstu w kolumnie A. Próbowałem wykonać makro VBA:

Private Sub CommandButton1_Click()
Dim oTxt As Object
 For Each cell In Ark1.Range("A1:A" & Ark1.UsedRange.Rows.Count)
 ' you can change the sheet1 to your own choice
 saveText = cell.Text
 Open "H:\Webshop_Zpider\Strukturbildene\" & saveText & ".jpg" For Output As #1
 Print #1, cell.Offset(0, 1).text
 Close #1
 Next cell
End Sub

W rezultacie generuje pliki (jpg) bez żadnych treści. Zakładam linięPrint #1, cell.Offset(0, 1).text. jest źle. Nie wiem, co muszę zmienić,cell.Offset(0, 1).pix?

Czy ktoś może mi pomóc? Dzięki!