Microsoft . 技术之路...

—— 专注于微软技术, 分享是快乐的源泉......
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

如何向Word中添加图片?

Posted on 2006-07-25 11:23  赣江源  阅读(1500)  评论(0编辑  收藏  举报
Set objWord = CreateObject("Word.Application")
objWord.Visible 
= True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objShape = objDoc.Shapes
objShape.AddPicture(
"C:\Scripts\Logo.jpg")