vba - 在 Excel 中更改图片链接的路径

Question

我使用插入图片 -> 选择图片位置 -> 链接到文件，手动将大量链接图片粘贴到 2010 Excel 电子表格中。这些图片是报告的一部分。我每个季度使用 R 更新图片，我的报告会自动更新。完美。

我现在需要更改保存图的目录，并且需要更新链接。因为它们大约有 200 个(这是一个很大的报告)，所以我想在 VBA 中执行此操作。虽然我可以循环浏览图片(ActiveSheet.Pictures)，但我似乎找不到链接/地址。知道如何查看底层文件位置以便我可能会更改它 - 引用必须存储在某个地方(注意 - 这些似乎没有存储为超链接)。

Answer 1

Any idea how I can see the underlying file location so I might change it - the reference has to be stored somewhere

1. 创建一个新文件夹
2. 粘贴 .xlsx 或 .xlsm excel 文件的副本
3. 使用 zip 工具解压缩文件(我使用的是 7-Zip)
4. 删除 .xlsx 或 .xlsm 文件(可选)
5. 现在我们将原始文件的所有组成部分都作为纯文本 xml 文件和文件夹
6. 在文件夹 xl\drawings\_rels 中有名为 drawing2.xml.rels、drawing3.xml.rels 的文件，...

好像每个文件都对应一个sheet，存储图片的路径是这样的格式:

Target="file:///C:\Users\myusername\Documents\MyImageFolder\My%20Image%20Name.png"

1. 使用文本编辑器更改路径
2. 将文件夹的所有内容压缩为.zip
3. 将扩展名改为原来的.xlsx或.xlsm

这些步骤可以用VBA、AutoIt等自动完成，这里有一些引用:

• An example with AutoIt and 7-zip
• http://www.jkp-ads.com/Articles/Excel2007FileFormat.asp
• http://www.jkp-ads.com/Articles/Excel2007FileFormat02.asp
• Ron de Bruin zip examples with VBA
• Read and change multiple XML files in Excel (2007) VBA