VBA在图片中显示带有长网址的Google静态地图

Question

我可以在Excel中显示谷歌静态地图。

Sheets("Sheet1").Range("a1").Parent.Pictures.Insert theURL

这样可以正常工作，但是一旦我的网址超过1650个字符，我就会收到错误消息。 当我使用形状来显示地图时，它是一样的。

Sheets("Sheet1").Shapes("gMap").Fill.UserPicture theURL

还有其他方法可以在Excel中显示Google静态地图吗？ 我要显示的网址可能是＆lt; = 5000个字符。这是一条带有折线的地图。

有网址示例： 包含1649个字符的网址

https://maps.googleapis.com/maps/api/staticmap?size=600x600&path=enc%3Amym~h?g~uz`??e?a?q?a?k?c?u?e?s?i?}?m?{`?c?s?a?i?a?i?a?i?a?i?a?g?a?o?a?g?c?q?a?i?g?c`?a?i?m?w`?a?q?q?s`?c?i?s?u`?e?q?m?y`?e?q?o?}`?q?w`?a?g?o?w`?c?g?e?q?a?g?k?o`?o?y`?m?w`?q?w`?a?g?q?u`?a?g?i?y`?m?s`?a?g?k?y`?a?g?i?w`?a?g?e?{`??q?c?y`?g?w`?a?e?e?u?g?g`?m?}`?a?g?m?{`?o?y`?k?a`?i?a`?i?c`?o?s`?u?q`?i?y?o?}`?c?y?c?k`?a?o?k?{`?c?o?o?w`?a?g?m?w`?m?y`?a?g?m?g`?i?y?q?{`?c?o?e?u`?o?m`?a?g?e?c`?d?u?f?c?z?`?b`?b?``?b?f`?a?f??h?`?z??h`?d?|??z?c?f`?i?j??d`??d??z??p?c?d`?i?d??h`?c?h??d`?c?z?a?b??d`?c?~?i?v?k?h?c?b`?k?j?e?h??~?n?b`?c?d??d`?i?b`?u?f?u?`?o?e?u`?q?w`?q?w`?c?e?q?g`?o?y?k?k?}?y?w?g`?s?}?g?i?}?i`?e?e?u?g`?a?e?s?m`?i?c`?c?o?e?{?a?m??k?e?c`?e?a`?a?g?u?o`?a?g?a?e?m?i`?i?{???q?o`?k?w?e?m?m?m`?m?i`?u?m`?c?e?e?m?s?u`??q?i?y?y?k`?a?e?u?q`?q?w`?a?i?q?w`?m?w`?u?u`?s?s`?u?s`?c?g?s?q`?s?q`?e?k?m?m`?q?u`?c?e?o?c`?g?}?b?ca?c?{?m?c?o?n?w?|?c?b?u?r?y?d`?q?v`?s?|`?u?r`?g?n?k?v?g?l?i?n?u?m?a`?u?e?a?g`?y?e?c?e`?y?e?c?g`?u?i?e?c`?{?e?c?a`?y?g?e?a`?e`?{?}?{?h?a`?v?}?~?a?d?m?f`?g?n`?i?~`?e?z`?o?t`?c?f?m?|`?a?f?i?|`?k?v`?g?|`??v?a?~?c?z?`?ba??|?c?d?}?r?}?f`?q?r?e?l?m?l?a`?z?i?d?}?n?y?h?g?j?e?l?e?v?g?x`??|`?d?|`?`?l`?e?v`?d?z`?`?n?j?x`??f?h?z`??f?j?|`?b?t?f?v`?h?v`??f?p?|`?d?p?h?t`??v`?g?|`?c?p??~`?b?l?f?``?n?``?`?d?n?x?h?n?p?d`?r?l`?j?v?r?l`?t?p`?h?r?b?d?f?r?f?x?b?l?`?l?b?l?f?d`?`?f?b?h`?`?z??h?c?l`??f?c?l`?j?p`?n?r`?b?f?t?r`?d?n?f?v`?m?z?{?~?s?|?a`?|?a`?v?c?`?k?j?m?n?a`?z?c?b?a`?x?c`?|?c?b?a`?|?q?n?a`?z?e?b?y?x?{?~?`?d`?`?z?}?f`?i?d`??f??l`??r`?v?l`?t?p`?`?f?x?n`?t?~?x?d`?v?b`?j?t?`?b?j?p?h?j?b?b?z?``?v?``?h?j`??p`??f?j?z?|?b?v?a?h?b?v?r?z?m?``?w?b?c?~?{?f?e?b`?}?``?q?h?a?d`?w?

包含1653个字符的网址

https://maps.googleapis.com/maps/api/staticmap?size=600x600&path=enc%3Amym~h?g~uz`??e?a?q?a?k?c?u?e?s?i?}?m?{`?c?s?a?i?a?i?a?i?a?i?a?g?a?o?a?g?c?q?a?i?g?c`?a?i?m?w`?a?q?q?s`?c?i?s?u`?e?q?m?y`?e?q?o?}`?q?w`?a?g?o?w`?c?g?e?q?a?g?k?o`?o?y`?m?w`?q?w`?a?g?q?u`?a?g?i?y`?m?s`?a?g?k?y`?a?g?i?w`?a?g?e?{`??q?c?y`?g?w`?a?e?e?u?g?g`?m?}`?a?g?m?{`?o?y`?k?a`?i?a`?i?c`?o?s`?u?q`?i?y?o?}`?c?y?c?k`?a?o?k?{`?c?o?o?w`?a?g?m?w`?m?y`?a?g?m?g`?i?y?q?{`?c?o?e?u`?o?m`?a?g?e?c`?d?u?f?c?z?`?b`?b?``?b?f`?a?f??h?`?z??h`?d?|??z?c?f`?i?j??d`??d??z??p?c?d`?i?d??h`?c?h??d`?c?z?a?b??d`?c?~?i?v?k?h?c?b`?k?j?e?h??~?n?b`?c?d??d`?i?b`?u?f?u?`?o?e?u`?q?w`?q?w`?c?e?q?g`?o?y?k?k?}?y?w?g`?s?}?g?i?}?i`?e?e?u?g`?a?e?s?m`?i?c`?c?o?e?{?a?m??k?e?c`?e?a`?a?g?u?o`?a?g?a?e?m?i`?i?{???q?o`?k?w?e?m?m?m`?m?i`?u?m`?c?e?e?m?s?u`??q?i?y?y?k`?a?e?u?q`?q?w`?a?i?q?w`?m?w`?u?u`?s?s`?u?s`?c?g?s?q`?s?q`?e?k?m?m`?q?u`?c?e?o?c`?g?}?b?ca?c?{?m?c?o?n?w?|?c?b?u?r?y?d`?q?v`?s?|`?u?r`?g?n?k?v?g?l?i?n?u?m?a`?u?e?a?g`?y?e?c?e`?y?e?c?g`?u?i?e?c`?{?e?c?a`?y?g?e?a`?e`?{?}?{?h?a`?v?}?~?a?d?m?f`?g?n`?i?~`?e?z`?o?t`?c?f?m?|`?a?f?i?|`?k?v`?g?|`??v?a?~?c?z?`?ba??|?c?d?}?r?}?f`?q?r?e?l?m?l?a`?z?i?d?}?n?y?h?g?j?e?l?e?v?g?x`??|`?d?|`?`?l`?e?v`?d?z`?`?n?j?x`??f?h?z`??f?j?|`?b?t?f?v`?h?v`??f?p?|`?d?p?h?t`??v`?g?|`?c?p??~`?b?l?f?``?n?``?`?d?n?x?h?n?p?d`?r?l`?j?v?r?l`?t?p`?h?r?b?d?f?r?f?x?b?l?`?l?b?l?f?d`?`?f?b?h`?`?z??h?c?l`??f?c?l`?j?p`?n?r`?b?f?t?r`?d?n?f?v`?m?z?{?~?s?|?a`?|?a`?v?c?`?k?j?m?n?a`?z?c?b?a`?x?c`?|?c?b?a`?|?q?n?a`?z?e?b?y?x?{?~?`?d`?`?z?}?f`?i?d`??f??l`??r`?v?l`?t?p`?`?f?x?n`?t?~?x?d`?v?b`?j?t?`?b?j?p?h?j?b?b?z?``?v?``?h?j`??p`??f?j?z?|?b?v?a?h?b?v?r?z?m?``?w?b?c?~?{?f?e?b`?}?``?q?h?a?d`?w?v?d?

将这些网址复制到浏览器时，这两个网址都有效。

Answer 1

以下是使用@Omegastripes首先下载到文件夹的想法的示例。我在评论中的功能转换为tinyURL也有效，但无法发布。然而，下载到文件夹更加强大。

注意：

如果在32位上删除单词mouseover

<强>代码：

PtrSafe

结果：