在Excel文本框中插入超文本链接

Question

我有一个带有文本框的工作表，是使用VBA创建的：

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

我想在文本框的文本中插入一个链接，但是我找不到vba代码来做到这一点。我要精确添加的链接是"mailto:"链接。

编辑

实际上，文本框不能包含可用的链接，所以我的第二个问题是：我可以使用哪个对象来包含格式正确的文本和指向其中的链接？

Answer 1

然后，我将使用标签。

这是我发现的最好的：

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:[email protected]"

超文本链接在这里设置为整个标签，然后我必须将其精确放置为文本的覆盖。