Wednesday, June 30, 2010

Extract hyperlink address from shapes

If you want to extract hyperlink address from shapes. Try this macro

Sub extract_hyperlink_from_shapes()

Dim sh As Shape

Dim x As Long

x = 1

For Each sh In ActiveSheet.Shapes
    If sh.Type = msoPicture Then
        On Error Resume Next
        Range("a" & x).Value = sh.Name
        Range("b" & x).Value = sh.Hyperlink.Address
        x = x + 1
    End If

End Sub

Steps to Use

  • Copy the below code
  • Press Alt+F11 to open VBA editor
  • Paste it in any public module or module 1
  • Select the sheet having shapes and run the macro

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...