如何在 Excel-VBA 中使用用户窗体在 Word 中插入图像

【问题标题】：How to insert an image in Word with an userform in Excel-VBA如何在 Excel-VBA 中使用用户窗体在 Word 中插入图像
【发布时间】：2019-04-19 09:27:54
【问题描述】：

我在 Excel 中创建了一个用户表单，它有一个图像选择器，可以将所选文件保存为图片的图像。（图1.图片）我需要制作一个按钮来复制该图像并将其附加到现有的 Word 文档中，但我无法使其工作。任何想法？提前感谢您的帮助。

【问题讨论】：

欢迎来到 Stack Overflow：你写道你无法让它工作，你能告诉我们你到目前为止尝试了什么以及你卡在哪里了吗？人们会很乐意在这里帮助您的代码工作

标签： excel vba ms-word userform

【解决方案1】：

试试这个函数，我已经构建了将strImagePath 处的图像插入到strDocPath 处的文档的函数（例如“D:\MyImage.img”和“D:\MyDoc.docx”）。如果您对图像类型（.jpg 或 .gif 等）有疑问，请使用函数 objShapes.AddPicture 进行研究

Function FnImageInsert(strImagePath, strDocPath)
  Dim objWord
  Dim objDoc
  Set objWord = CreateObject("Word.Application")
  Set objDoc = objWord.Documents.Open(strDocPath)
  objWord.Visible = True      
  objWord.Selection.TypeText (vbCrLf & "One Picture will be inserted here....")
  objDoc.InlineShapes.AddPicture (strImagePath)
End Function

然后您可以创建一个用户表单来插入这些路径并运行该功能。希望对您有所帮助。

【讨论】：