在为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帮我解决的问题。