VBA application dialogs

ahepple86

New Member
Joined
Jun 12, 2021
Messages
1
Office Version
  1. 2019
Platform
  1. Windows
I have a button on a sheet that simply opens the hyperlink dialog with Application.Dialogs(xlDialogInsertHyperlink).Show to link a cell value to an external file.

Is there a way of me using the file path that was selected during that process to do something else?

I was thinking of a function such as: Application.Dialogs(xlDialogInsertHyperlink).SelectedItems(1) but that doesn't work.
 

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Domenic

MrExcel MVP
Joined
Mar 10, 2004
Messages
19,722
Try the following...

VBA Code:
Option Explicit

Sub InsertHyperlinkToFile()

    If ActiveSheet Is Nothing Then
        MsgBox "Please make sure that a worksheet is active, and try again!", vbExclamation
        Exit Sub
    End If

    Dim hyperlinkFilename As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .ButtonName = "Select"
        .InitialFileName = Application.DefaultFilePath
        .Title = "Select File"
        If .Show = 0 Then Exit Sub
        hyperlinkFilename = .SelectedItems(1)
    End With
    
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=hyperlinkFilename, TextToDisplay:="MyLink" 'change the text to display as desired
    
End Sub

Hope this helps!
 

Forum statistics

Threads
1,141,406
Messages
5,706,269
Members
421,437
Latest member
GijoeBlack

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top