求助：怎么用VB输出图形到Word文档，急！

Question

想用VB输出图形到Word文档，怎么输出呢，查不到，大家帮个忙把，谢了。

Answer 1

'Word文档插入图片
Option ExplicitPrivate Sub Command1_Click()
        Dim wordApp As Object
        Dim wordDocument As Object
        Set wordApp = CreateObject("word.application")
        Set wordDocument = wordApp.Documents.Open("D:\插入图片测试.doc", , False) '只读打开
        wordDocument.Shapes.AddPicture "D:\bliss.jpg", True, True
        wordApp.ActiveWindow.WindowState = 1
        wordApp.Application.Visible = True
End Sub