excel - `Range.Hyperlink.Shape` 有什么作用？

Question

我明白，Shape.Hyperlink是与形状相关的超链接，Shape.Hyperlink.Follow在网络浏览器中打开并显示超链接，就像我左键单击形状一样。

问:但是 Range.Hyperlink.Shape 是什么意思？做，当我给它分配一些形状时？

它似乎是与超链接相关的形状......

当我将鼠标悬停在超链接的文本或其他内容上时，它会弹出形状吗？

对于加里的:

Sub DummySub(rng As Range, shp As Shape)               
   rng.Hyperlinks.Add rng, "http://microsoft.com", "", "Hint"
   rng.Hyperlinks(1).Shape = shp 
End Sub

Answer 1

对于薄片形状，您可以添加 Link .右键单击它或在 VBA 代码中。您可以选择Existing file or web Page , Place in this Document , Create new Document或 E-mail-Address .

如果您选择“现有文件或网页”并为其提供网页地址，它将成为一个超链接。

但是Range.Hyperlink.Shape在VBA中没有意义，恐怕......
Hyperlink VBA 中不存在范围属性。仅限 Hyperlinks . Hyperlink.Shape是的...

请测试下一个代码:

Sub testRangeHiperlynk()
  Dim HypShape As Shape

    Set HypShape = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 300, 160, 100, 20)
      HypShape.Name = "testRect"
    HypShape.TextFrame.Characters.text = "Go to Google"
    ActiveSheet.Hyperlinks.aDD Anchor:=HypShape, address:="http://www.google.com", SubAddress:="GoToGoogle!A1"
    Debug.Print ActiveSheet.Shapes("testRect").Hyperlink.Shape.Name
    ActiveSheet.Shapes("testRect").Hyperlink.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

它创建一个矩形，将其命名为“textRect”，在上面写一些东西，然后在 A1 中创建一个(某种)超链接，但引用新创建的形状，定位 Google.com .

那就看看 HypShape.Hyperlink.Shape.Name在立即窗口中返回以及如何使用 Hyperlink.Shape.Fill 定义形状已经上色了……

但是 Range.Hyperlink.Shape在 VBA 中不存在 :)

编辑:该属性可以更聪明地使用。运行此代码(在第一个代码之后)，您将能够根据工作表超链接设置形状:

Sub testHypShape()
 Dim H As Hyperlink, sh As Shape
  For Each H In ActiveSheet.Hyperlinks
    If H.Shape.Name = "testRect" Then Set sh = H.Shape: Exit For
  Next
  sh.Fill.ForeColor.RGB = RGB(0, 225, 225)
End Sub