Attribute VB_Name = "Modul1"
Option Explicit

Sub main()
    Dim aktDoc As AcadDocument
    Dim bloecke As AcadBlocks
    Dim Block As AcadBlock
    Dim Xrefs As Collection
    Dim Bild As AcadRasterImage
    Dim Bilder As Collection
    
    Dim i As Long

    Set Xrefs = New Collection
    Set aktDoc = ThisDrawing
    Set bloecke = aktDoc.Blocks
    
    
    For Each Block In bloecke
        If Block.IsXRef Then
            Xrefs.Add Block
        End If
    Next
    
    ' Ausgabe der XREFs in die CSV-Datei
    For i = 0 To Xrefs.Count - 1
        Set Block = Xrefs.Item(i)
        ' Name = Block.name
        ' Pfad = Block.path
    Next i
   
    Set Bilder = New Collection
    Dim element As AcadObject
    
    For Each element In aktDoc.ModelSpace
        If element.ObjectName = "AcDbRasterImage" Then
            Bilder.Add element
        End If
    Next
    For Each element In aktDoc.PaperSpace
        If element.ObjectName = "AcDbRasterImage" Then
            Bilder.Add element
        End If
    Next
    
    ' Ausgabe der Bilder in die CSV-Datei
    For i = 0 To Bilder.Count - 1
        Set Bild = Bilder.Item(i)
        ' Name = Bild.name
        ' Pfad = Bild.ImageFile
    Next i

End Sub