per Makro Übersicht über Bilder eines Ordners erstellen

[Inge55]

Liebe Experten,

vor vielen Jahren (das war vielleicht noch zu Newsgroup-Zeiten?) hatte ich mal ein geniales Makro gefunden, das alle Bilder in einem Ordner in eine Tabelle packt mit den Dateinamen als Bildunterschrift.
Jetzt könnte ich das mal wieder gebrauchen, aber nun finde ich es nicht wieder  . Ich fürchte, ich hab das nur auf Arbeit gespeichert - und da ich nun Rentner bin, komme ich da nicht mehr ran. 
Ich bin auch nicht mehr ganz sicher, ob's in Excel oder in Word war.

Ich suche nun schon paar Tage, aber Google bringt mir kein brauchbares Ergebnis.

Kann sich vielleicht einer von euch erinnern und hat die Datei noch? 

viele Grüße und vielen Dank!

Ingrid

[Gerhard H]

Hallo Inge,

wenn es auch was Neues sein darf: Das folgendes Makro fügt Bilder mit der Endung *.jpg aus einem definierten Ordner in die erste Tabelle des Word-Dokuments ein.

Zum Testen erstelle dir ein Dokument mit einer nur 1-zeiligen Tabelle (die Folgezeilen werden automatisch erstellt) und beliebig vielen Spalten. Lasse darauf das Makro los, nachdem du den Pfad zum Ordner angepasst hast.

Code:

Sub BilderInTabelle()

Dim fso As Object, ordner As Object, bilder As Object, bild As Object
Dim pfad As String
Dim tabelle As Table, anzSpalten As Long, zellNr As Long

pfad = "C:\1temp\bilder\" '***Anpassen
Set tabelle = ActiveDocument.Tables(1)
anzSpalten = tabelle.Columns.Count
Set fso = CreateObject("Scripting.FileSystemObject")
Set ordner = fso.GetFolder(pfad)
Set bilder = ordner.Files

For Each bild In bilder
    If fso.GetExtensionName(bild) = "jpg" Then
        zellNr = zellNr + 1
        If zellNr Mod anzSpalten = 0 Then tabelle.Rows.Add '3
        ActiveDocument.InlineShapes.AddPicture FileName:=bild, _
        Range:=tabelle.Range.Cells(zellNr).Range
        tabelle.Range.Cells(zellNr).Range.InsertAfter vbLf & bild.Name
    End If
Next bild

End Sub