从URL书签Microsoft Word插入图像

时间:2013-06-20 11:58:41

标签: ms-word ms-office word-vba bookmarks

我的sql数据库中包含图片网址。 我在word文档中为该列创建了一个书签(这很好)。

现在我想使用从数据库传递的图像URL来插入图像。

我试过超链接(不起作用,不显示图像) 我尝试过Quick Parts - IncludePicture(不起作用)。

我一直在谷歌,并没有发现任何有用的东西。

好的,让我简化一下。 我想使用URL插入图像。 你可以用我认识的不同方式做到这一点。

例如,使用快速部件并选择IncludePicture,您将过去插入图片的URL和BAM图像。

现在我想用一个例外做到这一点。 URL是我从数据库中获取的Microsoft Word书签。 出于某种原因,这不想工作。我还检查了书签数据,这是正确的,是的,它是一个有效的URL,因为如果我按照上面描述的方式从数据库中复制并粘贴它就可以了。

还有其他方法吗?

1 个答案:

答案 0 :(得分:0)

说实话,我仍然不知道你的问题究竟在哪里。我假设您拥有使用VBA从数据库中同时获取bookmark nameurl的知识和代码。如果是这样,将会有非常简单的代码,允许您将图片从Web加载到word文档中的书签。

以下是我测试过的代码成功的一半。如果我添加任何图片它将工作正常。但不会与活跃的谷歌地图的网址一起使用。我不知道你的意思是什么?静态谷歌地图' (在评论中),你没有提供任何例子,因此你需要自己进行测试。

在运行此测试之前,请确保您的有效文档中有两个书签:bookmark_logobookmark_poland。希望这会有所帮助。

Sub Insert_picture_To_Bookmark()

    Dim mapURL As String
    Dim soLOGO As String

    soLOGO = "http://cdn.sstatic.net/stackoverflow/img/apple-touch-icon.png"
    ActiveDocument.Bookmarks("bookmark_logo"). _
                    Range.InlineShapes.AddPicture _
                    soLOGO, True, True

    mapURL = "https://maps.google.pl/maps?q=poland&hl=pl&sll=50.046766,20.004863&sspn=0.22047,0.617294&t=h&hnear=Polska&z=6"
    ActiveDocument.Bookmarks("bookmark_poland"). _
                    Range.InlineShapes.AddPicture _
                    mapURL, True, True

End Sub