vba - 创建超链接按钮

Question

我想制作一个带有列的表格，可以添加超链接。

用户应该能够按下按钮或文本说“添加超链接”并弹出默认超链接框。

这在 excel 中是否可以使用某种宏？

我试图录制宏并通过互联网搜索，但无法真正找到与我的问题类似的任何内容。并且记录宏不显示用于打开用户选择要链接的地址的超链接框的代码。

Answer 1

您可以显示对话框：

If Application.Dialogs(xlDialogInsertHyperlink).Show Then
    'they pressed Ok
End If

这将为活动单元格或形状创建一个超链接。它不会以任何其他方式返回超链接详细信息，因此您需要从它们所在的单元格中读取它：

Dim hl As Hyperlink

If Application.Dialogs(xlDialogInsertHyperlink).Show Then
    'they pressed Ok
End If

Set hl = ActiveCell.Hyperlinks(1)

如果您实际上不需要单元格中的超链接，那么您可以在之后将其删除（一旦您存储了所需的详细信息）：

ActiveCell.Hyperlinks.Delete   'or, more likely,
ActiveCell.Clear

如果您只是想显示对话框，而不用它做任何其他事情，那么Ctrl-K或

Application.SendKeys "^k"

或将插入超链接按钮添加到快速访问工具栏即可。