VBA如何为图片添加链接

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

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

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

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

 


未经允许不得转载:阿藏博客 » VBA如何为图片添加链接

赞 (0) 打赏