怎样在delphi中实现像word中插入自选图形

Question

怎样用delphi编程实现像word中插入自选图形的功能。各位高手请帮忙说一下，有源码更好，先谢谢了。

Answer 1

使用word的宏，记录下来后再用代码改写。
Sub Macro2()
'
' Macro2 Macro
' 宏在 2011-4-2 由 zz 录制
'
    ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 315#, 146.1, _
        81#, 93.6).Select
    ActiveDocument.Shapes("Canvas 3").Select
End Sub

Answer 2

http://wenku.baidu.com/view/68ee4fb81a37f111f1855b86.html不会宏的话看这个。

Answer 3

最简单的方法是利用剪贴板：
如将DBImage先拷到剪贴板，再Paste到WORD中想要的位置：
    DBImage.CopyToClipboard;
    WordApp.Selection.Paste;