如何在Excel VBA中使用userform在Word中插入图像

我在Excel中创建了一个userform，它有一个图像选择器，可以将所选文件保存为图片图像。（图1.图片）

---

我需要制作一个按钮来复制该图像并将其附加到现有Word文档中，但我无法使其正常工作。有什么想法吗？提前感谢您的帮助。

试试这个函数，我已经构建了一个函数，可以将

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

然后您可以创建一个userform来插入这些路径并运行该函数。
希望对您有所帮助。
欢迎来到Stack Overflow：您曾写道您无法使其正常工作，能否向我们展示您迄今为止所做的尝试，以及您在哪里遇到的问题？人们会很乐意在这里帮助您使代码正常工作