如何使graph类型的datawindow的内容能复制粘贴到word中？

[LabAdmin]

如题。
或者有没有什么办法将graph类型的dw图发送到word？用户提出要求饼图等能复制到word，初学pb大家帮帮。

[LabAdmin]

怎么每人理啊

[wu_07]

Clipboard("gr_employees")

[wu_07]

//将dw图copy到剪贴板
dw_1.Clipboard("gr_1")
integer value
string wordname, named
value = GetFileSaveName("另存为", wordname,named,"DOC","DOC Files (*.DOC), *.DOC")
if value <> 1 then return
OLEObject ole_object
ole_object = CREATE OLEObject

integer li_ret
li_ret = ole_object.ConnectToObject("","Word.Application")
IF li_ret <> 0 THEN
li_ret = ole_object.ConnectToNewObject("Word.Application")
IF li_ret <> 0 THEN
messagebox("OLE错误","OLE无法连接!~r~n错误号:" + string(li_ret))
Return 0
END IF
ole_object.visible = true

END IF

pointer oldpointer
oldpointer = SetPointer(HourGlass!)

ole_object.Documents.Add()
//将dw图从剪贴板粘贴到word
ole_object.Selection.Paste()


//保存新建的文档
ole_object.ActiveDocument.SaveAs(wordname, 0,False,"",True,"",False,False,False, False,False)

//断开OLE连接
Ole_Object.DisConnectObject()
Destroy Ole_Object
SetPointer(oldpointer)
messagebox("","保存成功!")