PDA

View Full Version : Solved: Opening the Edit Links Dialog



xluser2007
05-01-2008, 11:32 PM
Hi All,

Just a quick question.

In improving my understanding of userforms, actually starting to build my first one.

In particular, I am just trying to understand how to open dialog boxes by cliscking buttons.

The particular dialog that I need to open is the Edit>Links Dialog box. Does anyone know the code to activate or open this dialog?

I have an example of what I want to open up by clicking the userform button, attached as a picture.

Any help would be appreciated.

xluser2007
05-02-2008, 12:32 AM
Hi All,

Experimented a bit more. Found that it was the "xlDialogOpenLinks" filedialog that I needed.

Problem solved as below for anyone else that requires assistance for the issue:


Sub filedialog_EditLinks()

Dim dlgEditLinks As filedialog

Select Case IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks))

Case True

MsgBox "No external links visible"

Case False

Application.Dialogs(xlDialogOpenLinks).Show

End Select

End Sub

regards,