OpenOffice.info

Hallo,
ich möchte ein Diagramm aus Calc in Writer einfügen.
Ich denke, das geht am besten mit der Zwischenablage und würde mich für die ersten Versuche auch damit zufriedengeben, wenn ich das Diagramm von einer Tabelle in eine andere kopieren kann.

Ich habe mir das so gedacht:



Dim ClipBoardHandle as Object
ClipBoardHandle = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
dim nutzer as object
nutzer = createUnoService("com.sun.star.datatransfer.clipboard.ClipboardOwner")
xray.xray nutzer ' Ist schon Null?
'nutzer.setObjectNull() ' Klappt nicht
ClipBoardHandle.setContents(d,nutzer) ' Klappt nicht
' d wurde zunächst als Objekt definiert, das die Grafik darstellt

Das Problem scheint einerseits zu sein, dass "ClipBoardHandle.setContents" als zweites Argument ein Objekt Nutzer verlangt, der auch Null sein darf, aber welche Art von Null ist hier gemeint?

Ich bin mir auch nicht so sicher, ob ich mein erstes Objekt richtig definiert habe, oder ob ich das fürs Clipboard noch irgendwie aufbereiten muss:

dim a as object
dim b as object
dim c as object
dim d as object
a = ThisComponent
b = a.getDrawpages()
c = b.getByIndex(0)
d = c.getByIndex(0) 'Nicht schön programmiert, aber es gibt nur ein einziges Diagramm).

Vielleicht gibt es auch noch einen viel einfacheren Weg ohne Clipboard?

Für nützliche Hinweise bin ich sehr dankbar, weil ich hier einfach nicht weiterkomme!