16.02.2022, 18:06
Hallo Stefan,
der Code für den Import könnte so aussehen:
Gruß
Koter
der Code für den Import könnte so aussehen:
Code:
Sub ImportCDR()
Dim CDraw As Object, CDFilter As Object
Set CDraw = GetObject("", "CorelDraw.Application.17")
If CDraw.Visible Then
CDraw.InitializeVBA
Else
MsgBox "CorelDraw läuft nicht!", vbCritical, "Fehler"
Exit Sub
End If
Set CDFilter = CDraw.ActiveDocument.ActiveLayer.ImportEx("C:\Test\Test.cdr", 0, Nothing)
CDFilter.Finish
Set CDraw = Nothing
End Sub
Gruß
Koter