Hi Axel,
vielen Dank für den Tipp.
Der Text, den man bei Einfügen bekommt, entspricht also
genau dem was in der Registry steht.
Ich habe das jetzt für verschiedene Klassen ausprobiert,
die Erfolgsquote ist aber dennoch 50:50
Klappt :
Dim WordObj As Variant
Set WordObj = CreateObject("Word.Application")
Dim Winsock1 As Variant
Set Winsock1 = CreateObject("MsWinsock.Winsock")
Dim WangObj As Variant
Set WangObj = CreateObject("Wangimg.Application")
Klappt nicht :
Dim sWinsock As Variant
Set sWinsock = CreateObject("Catalyst.SocketCtrl")
Dim Wang As Variant
Set Wang = CreateObject("wangimage.thumbnailcntrl")
Weiß jemand, wo ich mehr über diesen OLE Kram in Lotus erfahren kann ?
Ciao
Don Pasquale