Office: (Office 2010) Bilder aus Zellen mit Namen exportieren

Hallo,

ich habe eine Exceltabelle in der in einer Spalte/Zelle Bilder eingefügt wurden. Insgesamt ca. 2000 Zeilen / Bilder. Diese Bilder haben in Excel offensichtlich einen Namen. Wenn man die Bilder anklickt z.B. Picture 504.

Gibt es einen Weg diese Bilder mit diesen Namen in einen Ordner zu exportieren und dabei den Namen (den Excel vergeben hat) beizubehalten (z.B. picture504.jpg usw.)?

Ziel ist der Aufbau einer Access-DB in denen diese Bilder als "Anlage" gespeichert werden.

Die Namen der Bilder schreibt ein VBA Programm in eine separate Zeile.

Sub AlternativtextAuslesen()
Dim oShape As Shape
Dim oTopLeft As Range
For Each oShape In ActiveSheet.Shapes
If oShape.Type = msoPicture Then
Set oTopLeft = oShape.TopLeftCell
ActiveSheet.Range("G" & oTopLeft.Row).Value = oShape.Name
ActiveSheet.Range("H" & oTopLeft.Row).Value = oShape.AlternativeText
End If
Next oShape
End Sub

Funktioniert super (ich kann leider kein VBA)! Damit hätte ich dann schon mal den Dateinamen des Bildes in jedem Datensatz. Was mir fehlt ist aber der Export der Bilder mit einem bestimmten Namen, um später auf die Datei verweisen zu können.

Habe schon mit WinRar die Bilder schön aus Excel exportieren können (Excel-Datei mit WinRar öffnen und entpacken..) aber hier werden einfach fortlaufende Nummern vergeben (image1.jpg, image2.jpg...usw) und ich müßte dann manuell die Bildnamen den Daten zuordnen...

Hat jemand hierzu eine Idee?

Vielen Dank, wenn sich hier jmd des Problems annehmen könnte! *rolleyes.gif*

:)

 

Hi,

eine Möglichkeit:

Code:

 

Hallo Karin,

alle Achtung! Es funktioniert super, ich bin begeistert. Das hat mir ne Menge Arbeit erspart..*Smilie

Dir ganz lieben Dank für Deine Hilfe!

Liebe Grüße,
Thomas