vba 为图片添加链接

最新推荐文章于 2024-07-22 14:00:47 发布

qinglinglaoren

最新推荐文章于 2024-07-22 14:00:47 发布

阅读量1.9k

点赞数

分类专栏： Office 文章标签： vba excel

本文链接：https://blog.csdn.net/qinglinglaoren/article/details/7497185

版权

Office 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

在为excel添加一个下载链接，该链接是通过一个图片触发的。由于之前还要操作其他的宏，进行sheet的复制，以及各行列间的运算。由于在复制sheet的时候不希望图片也被复制到新的sheet中，所以新建了一个宏，用于图片的导入以及为图片添加链接。

一下是我的宏：

Sub img()

'为标题设置超链接
Sheet1.Select
Range("AB1").Select

'插入图片
picpath = ThisWorkbook.Path & "/button.gif"

'图片的位置：x,y,width,height
ActiveSheet.Shapes.AddPicture picpath, True, True, 5, 5, 105, 30

'将插入的图片选定
ActiveSheet.Shapes(1).Select

'以AA1的值作为链接地址添加到图片上
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=Range("AA1").Value

Range("AA1").Value = ""
Range("A1").Select

End Sub

我之前是无法给图片添加链接的，后来做了提问，http://topic.csdn.net/u/20120424/23/a6196641-a0a6-49f6-8219-87eaf44ae100.html?seed=1433465269&r=78362947#r_78362947

是dsd999帮我解决的问题。