VBA如何为图片添加链接

有时我们需要为Excel中的图片添加超链接，批量的操作肯定少不了VBA宏。

那么如何使用VBA为图片添加链接呢？示例代码如下：

ActiveSheet.Pictures.Insert(Filename).Select
Set shp = Selection.ShapeRange.Item(1)
ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:=Filename

Filename代表图片链接。Address后面代表图片要跳转的超链接。