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

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

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

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

参考资料:
Vba add hyperlink to a picture



Related Posts: VBA如何为图片添加链接 :

留言