Exporter des images à partir de fichier excel en format jpg à l'aide de VBA

J'ai un fichier Excel qui comprend des images dans la colonne B, et je tiens à exporter en plusieurs fichiers .jpg (ou toute autre image file format). Le nom du fichier doit être généré à partir du texte dans la colonne A. j'ai essayé de macro VBA suivante:

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

Le résultat est qu'il génère des fichiers (jpg), sans aucun contenu. Je suppose que la ligne Print #1, cell.Offset(0, 1).text. est faux.
Je ne sais pas ce que je dois le changer, cell.Offset(0, 1).pix?

Quelqu'un peut-il m'aider? Merci!

Vous pouvez utiliser ceci add-in
comment sont les photos stockées? si ils sont dans activex les contrôles d'image c'est une simple ligne de code pour enregistrer l'image; si non, vous aurez besoin de plus de code compliqué ou un add-in, comme celle qui est proposée
Salut, je n'ai pas l'ajouter à exécuter (version 2007). Échec: "mauvais nombre d'arguments et d'affectation de propriété non valide". Kerstin
social.msdn.microsoft.com/Forums/vstudio/en-US/... <- une discussion d'une version plus complexe de ce problème - extraire les images à leur taille d'origine, c'est à dire 100% des pixels de l'échelle.

OriginalL'auteur KEK79 | 2013-08-14