Dateiname der importierten Grafik auslesen

[Gexi]

Morgen !!!

Ich hoffe das ich hier im Forum eine Antwort bekomme da es zum Thema Corel VBA fast nix zu finden gibt.

Ich habe eine Vorlege erstellt aus der ich per VBA den TEXT aus der Ebene Dateiname kopieren möchte und beim "Als PDF Freigeben zum Speicherort eintragen.

Ich habe vom Makrorecorder nur Folgenden Aufzeichnung.

Sub Macro4()
' Recorded 07.11.2014
ActiveLayer.Shapes.All.CreateSelection
ActiveSelection.Copy
With ActiveDocument.PDFSettings
.PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument
.PageRange = ""
.Author = ""
.Subject = ""
.Keywords = ""
.BitmapCompression = 2 ' CdrPDFVBA.pdfJPEG
.JPEGQualityFactor = 10
.TextAsCurves = False
.EmbedFonts = True
.EmbedBaseFonts = True
.TrueTypeToType1 = True
.SubsetFonts = True
.SubsetPct = 80
.CompressText = True
.Encoding = 1 ' CdrPDFVBA.pdfBinary
.DownsampleColor = True
.DownsampleGray = True
.DownsampleMono = True
.ColorResolution = 200
.MonoResolution = 600
.GrayResolution = 200
.Hyperlinks = True
.Bookmarks = True
.Thumbnails = False
.Startup = 0 ' CdrPDFVBA.pdfPageOnly
.ComplexFillsAsBitmaps = False
.Overprints = True
.Halftones = False
.MaintainOPILinks = False
.FountainSteps = 256
.EPSAs = 0 ' CdrPDFVBA.pdfPostscript
.pdfVersion = 6 ' CdrPDFVBA.pdfVersion15
.IncludeBleed = False
.Bleed = 31750
.Linearize = False
.CropMarks = False
.RegistrationMarks = False
.DensitometerScales = False
.FileInformation = False
.ColorMode = 3 ' CdrPDFVBA.pdfNative
.UseColorProfile = True
.ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
.EmbedFilename = ""
.EmbedFile = False
.JP2QualityFactor = 10
.TextExportMode = 0 ' CdrPDFVBA.pdfTextAsUnicode
.PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
.EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
.ContentCopyingAllowed = False
.OpenPassword = ""
.PermissionPassword = ""
.EncryptType = 0 ' CdrPDFVBA.pdfEncryptTypeNone
.OutputSpotColorsAs = 0 ' CdrPDFVBA.pdfSpotAsSpot
.OverprintBlackLimit = 95
End With
ActiveDocument.PublishToPDF "C:\XXXXXX\tmp\Sepasdfafgaf.pdf"
End Sub

Ich würde also gerne den Grafiktext in Eine Variable geben und ihn zum Speicherort dazu geben.

Ich wäre um Hilfe sehr dankbar.