在 Excel 文本框中插入超文本 link

Question

我有一个带有文本框的 sheet，使用 VBA 创建：

With Worksheets(1)
  .Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 100, 100).TextFrame.Characters.Text = _
      "Some text here" & LinkHere & "Maybe more text here"

我想在文本框的文本中插入 link，但找不到 vba 代码来执行此操作。我要精确添加的 link 是 "mailto:" link.

编辑

实际上，文本框不能有可用的 link，所以我的第二个问题是：我可以使用什么对象来包含格式正确的文本和 link？

Answer 1

那好吧，我就用label

这是我找到的最好的：

With Worksheets(1)
 Dim l:l as Shape = .Shapes.AddLabel(msoTextOrientationHorizontal, 0, 0, 100, 100)
 l.TextFrame.Characters.Text = "link text here"
 .Hyperlinks.Add l, "mailto:someone@example.com"

此处超文本link设置为整个标签，那么我必须将其精确放置为文本的叠加

在 Excel 文本框中插入超文本 link

Insert a Hypertext link in an Excel textbox

excel

vba

textbox

hyperlink