Dateiname der importierten Grafik auslesen

[Hamu72]

Ich möchte gerne in Corel VBA, nachdem ich ein JPG per Drag&Drop auf das Dokument importiert habe, den Dateinamen des Bildes auslesen.
Dieser soll dann erstmal als Text irgendwo abgelegt werden.

Im VBA Object Model finde ich leider keine Methode oder Eigenschaft dazu.

Lasse ich einen Makro-Rekorder beim reinziehen des Bildes laufen, wird folgender Code erzeugt:

Code:

Sub bildimport()
    ' Recorded 01.07.2011
    ' Recording of this command is not supported
    Dim impopt As StructImportOptions
    Set impopt = CreateStructImportOptions
    impopt.Mode = cdrImportFull
    Dim impflt As ImportFilter
    Set impflt = ActiveLayer.ImportEx("\\Servername\Dateiname.jpg", cdrJPEG, impopt)
    impflt.Finish
    Dim s1 As Shape
    Set s1 = ActiveShape
End Sub

Ist es mir irgendwie möglich, aus diesem Objekt den Dateinamen auszulesen?

Ausserdem müsste ich ja auch auf ein Event reagieren. Gibt es eine Art "onImport"-Event? Oder muss ich auf jedes MouseUp-Event reagieren und prüfen, ob ein Import stattgefunden hat?

Alternativ könnte man ja auch, nachdem man ein Bild importiert hat, darauf klicken, und dann auf eine Makro-Schaltfläche, die den Dateinamen ausliest. Dazu müsste dieser aber vorher ja während des Imports irgendwo gespeichert sein.

vielen Dank im Voraus.