vba 为图片添加链接

来源：互联网发布：保定软件技术学院编辑：程序博客网时间：2024/05/17 22:15

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

一下是我的宏：

Sub img()'为标题设置超链接Sheet1.SelectRange("AB1").Select'插入图片picpath = ThisWorkbook.Path & "/button.gif"'图片的位置：x,y,width,heightActiveSheet.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").ValueRange("AA1").Value = ""Range("A1").SelectEnd Sub

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

是dsd999帮我解决的问题。