[已解决]VBA批量给图片加链接！在线等了！老有难度了！

l2828486

VBA批量给图片加链接！在线等了！老有难度了！

最佳答案

月排行榜 / 总排行榜

grf1973

2016-5-10 16:39

1. Sub tt()
   
2.     Dim shp As Shape
   
3.     For Each shp In ActiveSheet.Shapes
   
4.         r = shp.TopLeftCell.Row     '图片所在的行
   
5.         dz = Cells(r, 4) '地址
   
6.         If dz Like "http*" Then ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:=dz
   
7.     Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

pengyx

对所有图片编号，再对所有的网址编号，再对计算机说：相同号码的图片加上相同号码的超连接

grf1973

1. Sub tt()
   
2.     Dim shp As Shape
   
3.     For Each shp In ActiveSheet.Shapes
   
4.         r = shp.TopLeftCell.Row     '图片所在的行
   
5.         dz = Cells(r, 4) '地址
   
6.         If dz Like "http*" Then ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:=dz
   
7.     Next
   
8. End Sub
   

复制代码