CorelDrawX6 Symbolmanager

[koter]

kanns vielleicht an 32bit / 64 bit liegen

kann sein. Es könnte aber auch sein, dass die Bibliothek, die hinzugefügt werden soll schon vorhanden ist.

in dem Fall kann man dem Modul eine Funktion hinzufügen die das prüft:

Code:

Function BibVorhanden(pfad) As SymbolLibrary
    Dim Bib As SymbolLibrary
    For Each Bib In SymbolLibraries
        If pfad = Bib.FilePath Then
            Set BibVorhanden = Bib
        End If
    Next
End Function

und man muss das hinzufügen natürlich bedingt machen:

Code:

Set BiliothekNeu = BibVorhanden(NeuerPfad)
    If BiliothekNeu Is Nothing Then
        Set BiliothekNeu = SymbolLibraries.Add(NeuerPfad)
    End If

Das kannst Du ja mal versuchen, Helmut. Vielleicht ist es das schon.

Gruß

Koter