Flash Alpaca:
SUbxhyperlink()onerrorreSUmenextdimxsasshapeForeachxsinactivesheet.shapes'查找每一个图片ifxs.topleftcell.column=1then'判断图片左上角单元格位置,如果在a列cells(xs.topleftcell.row,2)=xs.hyperlink.name'取得图片左上单元格所在行,将图片超链地址写入对应的b列endifnextendSUb这样改一下……重点:要定义shapes的范....