我想创建一个带有可能性的柱子来添加超链接。
用户应该可以按下“添加超链接”按钮或文本,弹出默认超链接框。
这可能与excel有某种宏吗?
我曾尝试录制宏并通过互联网搜索,但无法找到与我的问题类似的内容。并且记录宏不显示用于打开超链接框的代码,其中用户选择要链接的地址。
答案 0 :(得分:2)
您可以使用
显示对话框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"
或将“插入超链接”按钮添加到快速访问工具栏即可。