创建超链接按钮

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"

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