Hi Stoffel,
der Schlüssel liegt darin, dass der 'Anker' "Nothing" ist. Damit kannst du ein Objekt dann 'On Desktop' legen.
Probiers mal mit den anhängenden Zeilen:
"Projekt" (weiter unten) ist das Objekt das auf Desktop gelegt werden soll
Dim MainObject As SmApplic.ISmObject
Dim LinkObject As SmApplic.ISmObject
Dim RootObject As SmApplic.ISmObject
Dim ClassNr As Integer
ClassNr = Session.MetaInfo.SmClassByName("Project").ClassId
Set MainObject = Nothing
Set LinkObject = Nothing
Set RootObject = Nothing
Projekt.AddToDesktop MainObject, ClassNr, LinkObject, RootObject
Gruß
Christian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP