Extract URL from shape

Tested in Excel 365 (16.8730.2046) 64-bit

 
 
  1. Sub ExtractURLFromShape()
  2.     Dim shp As Shape
  3.      
  4.     On Error Resume Next 'in case the shape has no URL
  5.    i = 1
  6.     For Each shp In ActiveSheet.Shapes
  7.         shp.Select
  8.         Cells(i, 5).Value = shp.Hyperlink.Address
  9.     i = i + 1
  10.     Next
  11. End Sub

Add a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.