CorelDRAW x7 Aufforderung nach importieren

[koter]

Hallo LammertES,

mit folgendem Makro kann man unter X5 den Platzierungswinkel ganz überspringen,

Code:

Sub Importieren()
    On Error GoTo fehler
    Dim Datei As String
    Dim impopt As StructImportOptions
    Dim impflt As ImportFilter
    ActiveDocument.BeginCommandGroup "Importieren"
    Set impopt = CreateStructImportOptions
    impopt.MaintainLayers = True
    Datei = CorelScriptTools.GetFileBox("alle Dateien (*.*)|*.*", "Datei importieren", 0, CurDir & "\*.*")
    Set impflt = ActiveLayer.ImportEx(Datei, cdrAutoSense, impopt)
    impflt.Finish
    ActiveDocument.EndCommandGroup
    Application.Refresh
fehler:
End Sub

Vielleicht klappt das auch unter X7.

Gruß

Koter