如何在word里插入mschart和picturebox里画的图片？

[AOX]

如何在word里插入mschart和picturebox里画的图片？
有没有可能后台插入，就是说，因为我要插入一批图片，我希望没有出现mschart和picturebox，直接生成图片插入word,或者说在word里生成图片？

[lixiaosan]

InlineShapes::AddPicture

[突击召唤师]

VBA的问题一般都可以这样解决:) 就是录制宏，看代码就好了！

[happy_sea]

如果是从图片文件加载图片，可以这样：

Dim wd As New Word.Application, doc As Word.Document

Private Sub Command2_Click()
wd.Selection.InlineShapes.AddPicture "C:\pic1.bmp", False, True
End Sub

Private Sub Form_Load()
Set doc = wd.Documents.Add
wd.Visible = True
wd.Documents.Open "d:\test.doc"
End Sub

Private Sub Form_Unload(Cancel As Integer)
doc.Close
wd.Quit
Set wd = Nothing
End Sub

[happy_sea]

如果是直接把picture1中的图片搞到word中，可以这样（变量定义接上面的代码）：

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
wd.Selection.Paste
End Sub

[AOX]

楼上的意思是先要画图。我的意思说有没有可能不画图，直接到word里插。
或者不需要界面，批量地生成图片。
再一个，那个mschart控件也没有picture或image属性来直接输出图片啊