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

AOX 2006-09-21 08:39:38
如何在word里插入mschart和picturebox里画的图片?
有没有可能后台插入,就是说,因为我要插入一批图片,我希望没有出现mschart和picturebox,直接生成图片插入word,或者说在word里生成图片?
...全文
267 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
AOX 2006-09-21
  • 打赏
  • 举报
回复
楼上的意思是先要画图。我的意思说有没有可能不画图,直接到word里插。
或者不需要界面,批量地生成图片。
再一个,那个mschart控件也没有picture或image属性来直接输出图片啊
happy_sea 2006-09-21
  • 打赏
  • 举报
回复
如果是直接把picture1中的图片搞到word中,可以这样(变量定义接上面的代码):

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
wd.Selection.Paste
End Sub
happy_sea 2006-09-21
  • 打赏
  • 举报
回复
如果是从图片文件加载图片,可以这样:

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
突击召唤师 2006-09-21
  • 打赏
  • 举报
回复
VBA的问题一般都可以这样解决:) 就是录制宏,看代码就好了!
lixiaosan 2006-09-21
  • 打赏
  • 举报
回复
InlineShapes::AddPicture

2,506

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧