创build超链接button

我想用一个可以添加超链接的列表来创build表格。

用户应该能够按下一个button或文字说“添加超链接”，popup默认的超链接框。

这是否有可能在某种macros观上performance优异？

我试图通过互联网loggingmacros观和search，但不能真正find类似于我的问题。 并且loggingmacros不显示用于select要链接的地址的超链接框的代码。

Answer 1

您可以显示对话框 ：

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

这将为活动单元格或形状创build超链接。 它不会以任何其他方式返回超链接细节，因此您需要从例如它们所在的单元格中读取它。

 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" 

或者将“插入超链接”button添加到“快速访问工具栏”将会执行此操作。